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4/17/72 3622 84-0703 2. 
PROGRAM NAME FPP-]2 TRACE-EPM DEVICE FPP-12 
ITEM 
g | New Program submitted to the Program Library. ‘Tests the EPM 
version of FPP-12. 
Te PROBLEM: FPP-12 Trace-EPM Program will not operate correctly 
2/13/3 connected to an LA3@S. The reason for this is that 


the 8-bit ASCII code for an altmode character is 233 
on the LA3@S versus 375 on a standard TTY device. 


FIX: Change the contents of location 362 from 2 to 144 octal} 
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ABSTRACT 


Gevaegats 


THIS PROGRAM [S$ DESIGNED TO AJO THE ENGINEER IN TROUBLE SHOOTING 


THE FPPe12 WITH EPM MARDWARE, THE PROGRAM CONSISTS 
ESSENTIALLY OF THREE MAJOR SEGMENTS! 


TELETYPE MONITOR 


SsOseskssgesxzegs 


THE ENGINEER CAN CONTROL THE OPERATION OF THE PROGRAM AND 


INTERROGATE THE SIMULATOR THROUGH FHE MONITOR, THERE ARE SEVERAL 


2 CHARACTER COMMANDS USED FOR CONTROL, (SEE COMMANDS,) 
THESE COMMANDS ALLOW THE USER TO INPUT HIS OWN FPPo42 
PROGRAM AND RUN IT, WE FPPei2 PROGRAM CAN CONSIST 

OF ANY SET OF FPPe42 INSTRUCTIONS, THE PROGRAM WILL 
RUN {N ANY OF THE 3 MODES OF OPERATION (FLOATING POINT, 
DOUBLE PRECISION, EXTENDED PRECISION), 


SIMULATOR 
@s2se2588e 


THE SIMULATOR IS THE HEART OF THE PROGRAM, ALL OF THE HAROWARE 
REGISTERS ARE SIMULATED, THE FPPe{2 18 STARTED IN THE MAINTEe 


NANCE MODE AND STEPPED THROUGH AN FPPei2 PROGRAM ONE TIME STATE 


A? A TIME, SIMULTANEQUSLY THE PROGRAM SIMULATES THE HARDWARE 
OPERATION, BEFORE STEPPING TO THE NEXT TIME STATE, THE PROGRAM 
COMPARES THE CONTENTS OF THE HARDWARE REGISTERS WHICH CAN BE 


READ WITH AN [0T, WITH THE CONTENTS OF THE CORRESPONDING SOFTWARE 


REGISTER, 


THE FPPe12 PROGRAM CAN BE ANY SET OF FPPei2 INSTRUCTIONS LOCATED 


ANYWHERE IN CORE OUTSIDE THE LIMITS OF THE TRACE PROGRAM, THE 
INSTRUCTION SET CAN BE ANY LENGTH, AN OPERAND TABLE CAN BE ANY 
LENGTH AND ALSO CAN BE LOCATED ANYWHERE IN CORE OUTSIDE THE 
PROGRAM LIMITS, 


MIN] ROUTINES 


A SET OF SUBROUTINES USED BY TRE SIMULATOR TO PERFORM THE 


HARDWARE FUNCTIONS, GOMPARE REGISTER CONTENTS, AND REPORT FRRORS, 
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REQUYREMENTS 


Geotonsetseaanea 


EQUIPMENT 


Bstsssstsse 


4) AN FPPei2 FLOATING POINT PROCESSOR 
WITH EPM HARDWARE, 


2) A POPeS OR PDPai2 WITH AT LEAST 8K OF MEMORY 

3) AN ASR33 OR ASR3S TELETYPE 

STORAGE 

Ssssss8 

THE PROGRAM USES ALL OF FIELD ® ANO ALL OF FIELD 4 
PRELIMINARY PROGRAMS 

Sscesssgs@egseaeszesea3a 

ALL PDP#8 OR PDPei2 PROCESSOR AND MEMORY DIAGNOSTICS, 
LOADING PROCEQURE 

Setugatseavaeeaesean 

LOAD THE PROGRAM WITH THE BIN LOADER, OTL LOADER OR PSB LOADER, 
STARTING PROCESURE 

S#esneaeestsaeeaeeseavad 

START THE PROGRAM IN 8 MODE AT LOCATION 2028 IN FJELD 2B, 


THE PROGRAM WILL ENTER THE TELETYPE MONITOR AND TYPE AN ASTERISK 
(#), THE PROGRAM IS NOW WAITING FOR INPUT FROM THE TTY, 
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OPERATING INSTRUCTIONS 


SCeteanetdsgussgaagasseaevas 


THERE ARE TW" SETS OF OPERATING INSTRUCTIONS, THE BASIC SET (5,4) 
WILL AUTOMATICALLY ATTEMPT TO BETECT A FAULTY REGISTER WHI PHEN 
A SPECIFIC TIME STATE, 


THE COMPLETE SEY (5,2) ALLOWS THE ENGINEER YO USE THE TROVALE 
SHOOTING CAPABILITIES OF THE PROGRAM ALONG WITH A SCOPE 70 
ISOLATE A FAILING COMPONENT, 


BASIC OPERATING INSTRUCTIONS, 


Z2SsXseseshSseseeterssesssessszr33e2 


4) SET SRO21 
2) SET ALL OTHER SWITCHES & 2 
3) TYPE WALT MODE" 


THE FPPei2 JS STARTES IN THE MAINTENANCE MODE RUNNING AN FPPo12 
PROGRAM WHICH WAS LOADED WITH THE TRACE PROGRAM, THE PROGRAM 
WILL RUN INDEFINITELY UNTIL AN ERROR IS DETECTED, THE ERROR 
WILL BE TYPEQ AND THE PROGRAM WILL WAIT FOR A RESPONSE FROM THE 
TTY KEYBOARD, 
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52,2 


542.5 


COMPLETE QPERATING INSTRUCTIONS 


Sssssstsssssseessessssssssssssts 


ANY SEY OF FPPei2 INSTRUCTIONS CAN BE RUN AND CHECKED By 

THE TRACE PROGRAM, THEREFORE A SEY OF TTY INPUT COMMANDS 

ARE AVAILABLE TO ENABLE THE USER To INPUT AND RUN HIS OWN 
FPPei2 PROGRAM, COMMANDS ARE ALSO AVAILABLE TO CONTROL 

THE OPERATION OF THE PROGRAM FOR TROUBLE SHOOTING, OfRECTIONS 
FOR USING THESE COMMANDS START AT PARAGRAPH 6, 


THERE ARE 43 COMMANDS WHICH CAN BE INPUT THROUGH THE TELETYPE, 
ALL GOMMANDS ARE TWO CHARACTERS ANO ARE PRECEDED BY A PERIOD (4), 
MOST COMMANDS REQUIRE ONE OR MORE OPERANDS, EACH OPERAND MUST 

BE TERMINATED BY A SPACE OR A CARRYAGE RETURN, A SPACE SEPERATES 
THE ARGUMENTS WITHIN AN ARGUMENT STRING AND A CARRAIGE 

RETURN TERMINATES THE ARGUMENT STRING, TYPING A | 

RUBOUT WILL DELETE ALL OATA AFTER THE LAST TERMINATOR, 

ANYTIME THAT THE SIMULATOR IS RUNNING, TYPING ANY CHARACTER 

WILL TRANSFER GONTROL TO THE TTY MONITOR AT THE END OF THE 
PRESENT TIME STATE, AY THIS TIME THE STATUS OF THE 

SIMULATED FPPe¢2 CAN BE INTERROGATED, 


INSERTING AN FPPa$2 PROGRAM 


SeSGeaet® ee Qgeneaqueset sea SqQeees 


THE "AS" COMMAND ALLOWS TKE USER fo TYPE IN FOUR DIGIT OCTAL 
WORDS IN SEQUENCE TO BE RUN AS AN FPPei2 PROGRAM, THE FPPei2 
INSTRUCTIONS YOU WISH TO TEST MUST BE TYPED INTO CORE, {!F NO 
LOCATION IS GJVEN TO THE AS COMMAND, (SEE COMMANDS,) THE DATA 
1§ INSERTED STARTING A? 4900 IN FIELD 4, 


THE ",OP"™ COMMAND [S$ THE SAME AS THE wast COMMAND EXCEPT fHaTt 
DaTA IS INSERTED STARTING AT 4400 §N FIELD 4. THIS IS 
NORMALLY USED fO INSER?® GPERANBS AND/OR A BASE TABLE, 


RUNNING AN FPPe12 PROGRAM 


ReGees H*Ranguereanqer sete Galea 


THE FPPei2 PROGRAM CAN BE RUN IN THE TRACE MODE IN WHICH EACH 
TIME STATE IS fRACED AND CHECKED BY USING THE ",RT" COMMANG, OR 
1? CAN BE RUN [N THE PAST MODE WITH THE ",RF" COMMAND IN WHICH 
THE FPPet2 IS STARTED IN NORMAL MOBE AND THE PROGRAM WAITS FOR 
tT TO EXIT, IN THE FAST MODE THE FPPei2 CAN BE STOPPED BY THE 
"EX" COMMAND, THE FPP#12 PROGRAM CAN BE STARTED IN THE DOUBLE 
PRECISION MODE BY SETTING THE COMMAND REGISTER WITH THE ",@M" 
COMMAND, 


ALL OTHER COMMANDS AND THE SWITCH REGISTER CAN BE USED TO 
CONTROL THE SPERATION OF THE SIMULATOR, 
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TTY MONITOR 


Sure eveteras 


THE TTY MONITOR ALLOWS THE USER TO COMUNICATE ®ITH THE 
PROGRAM, WHE CAN [NPUT FPP#12 INSTRUCTIONS AND OPERANDS 
79 BE RUN AND TRACED, HE CAN RUN THE TRACE IN THE SINGLE 
STATE OR CONTINUOUS MODE, HE CAN Lene Seer Ne THE STATUS 
OF MEMORY OR ANY REGISTER AT ANY TIME, 


DYE TO MEMORY CONSTRAINTS, VERY LITTLE ERROR CHECKING IS 
DONE IN TRE MONITOR, 


THERE ARE SIX SPECIAL CHARACTERS USED IN THE MONITOR 
TO TELL IT WHAT TO DO, THESE 6 CHARACTERS ARE | 


RETURN TERMINATOR 

SPACE TERMENATOR 

PERIOD COMMAND SWITCH 

RUBOUT DELETES CURRENT DATA ENTRY 

ALT MODE. SPEC{AL EX{T 

CNTRL EXIT TRACE PROGRAM (SEE COMMANDS 7,) 


THERE ARE A NUMBER OF COMMANDS WHICH ALLOW THE USER TO 
CONTROL THE PROGRAM ¢ SEE "COMMANDS" 7, 9, MOST OF 

THE GOMMANDS REQUJRE ONE OR MORE ARGUMENTS, ARGUMENTS 
WILL BE GROUPS OF 4 = 4 OCTAL BIGITS, EACH COMMAND IS 
SEPERATED FROM JTS ARGUMENT BY A SPACE, EACH ARGUMENT [5S 
SEPERATED BY A SPACE, AND A LINE [8 TERMINATED WITH 

A CARRAIGE RETURN, 

THIS MEANS THAT EVERY GOMMAND THAT ACCEPTS AN ARGUMENT 
MUST HAVE AT LEAST TwO TERMINATOR GHARACTERS, ONE TO 
TERMINATE THE COMMAND AND ONE TO TERMINATE EACH ARGUMENT, 
THIS HOLDS TRUE EVEN IF NO ARGUMENT {8 ENTERED, IN THE 
CASE OF NO ARGUMENT BEING ENTERED, THE SECOND TERMINATOR 
TELLS THE COMMAND ROUTINE TO CWECK TO SEE IF AN ARGUMENT 
WAS INPUT, THE OPERATION OCCURS IN THE FOLLOWING ORDER, 


PERIOD TELLS THE MONITOR THAT THE WO CHARACTERS PRECEDING 
THE NEXT TERMINATOR ARE TO BE TAKEN AS A COMMAND, 


TWO CHARACTER COMMANDS AND A TERMINATOR TELLS THE MONITOR 
TO DECODE THE COMMAND AND TRANSFER TO THE COMMAND ROUTINE, 
THE COMMAND ROUTINE THEN PERFORMS fHE PROPER FUNCTION, 

IF AN ARGUMENT JS NEEDED, THE COMMAND ROUTINE TRANSFERS 
CONTROL BACK TO THE MONITOR, THE MONITOR REMEMBERS WHICH 
COMMAND !S BEING EXECUTED, 


THE NEXT TERMINATOR TRANSFERS CONTROL BACK TO THE 
COMMAND ROUTINE, THES ALSO PASSES ON THE ARGUMENT IF 
ANY, EACH TIME THE PROGRAM TRANSFERES OUT OF THE MONJTOR 
ONLY ONE ARGUMENT !S PASSED ON’ 


WHEN A COMMAND THAT USES A FIXED NUMBER OF ARGUMENTS 
(Q OR 1) IS FINISHED, THE PROGRAM TYPES AN ASTERISK (a) 
AND RETURNS CONTROL TO THE MONS TOR, 








~ >¢iB awe ff, 





COMMAND FORMATS 


SeSeue tssegeegqggsa 


TAS FOLLOWING IS TRE FORMAT FOR EACH COMMAND, AFTER THE 
ARGUMENT, IN PARENTHES!S, IS THE NUMBER IF ARGUMENTS 

THAT THE COMMAND ACCEPTS, A "OC" AS THE NUMBER OF 
ARGUMENTS INDICATES THAT THE COMMAND WILL ACCEPT ARGUMENTS 
CONTINUOUSLY UNTIL ANOTHER COMMAND IS {NPUT, FOR THE 
MEANING OF EACH COMMAND AND A BDETAYLED DESCRIPTION SEE 
PaRAGRAPHS 7 AND 8, 


24S XXXX (0) ASSEMBLE 

10P XXXX (6) LOAD OPERAND 
rh ale 4 (4h © 14) TYPE REGISTER 

1EL XX (4° 44) ERROR LIST 

»SA ADDR (4) SET SYEP ADDRESS 

yA ADOR (4) RESEY STEP ADORESS 
1EA ADDR (4) EXT ADDRESS 

Gh (2) CLEAR STEP SWITCH 

eRY ADOR (4) RUN TRACE 

7RY E ADDR (2) RUN TRACE IN EPM MODE 
aRF ADOR (4) RUN FAST 

»RF E ADOR (2) RUN FAST JN EPM MQDE 
EX (O) EX{T THE FPPete 

aSH XX (4) SEf SPECIAL SHIFT 
a / 
~ 
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COMMANDS 


@etaseed se 


SUMMARY (SEE DESCRIPTION (8,) FOR MORE DETAILS) 


ssssaz2s8 


INPUT AND OUTPUT 


we" a eewtenvaa eae 


1As ASSEMBLE 


» QP OPERANDS 


ony TYPE 


PQ 
FQ 


MQ 
AG 
PC 
IR 
OP 
AD 


oT 
PS 


FPPet2 INSTRUCTIONS AND/OR OPERANDS ARE 
INPUT IN OCTAL FROM THE TTY AND STORED 
SEQUENTIALLY IN MEMORY, EACH TIME A 
CARRIAGE RETURN !S JNPUY THE PROGRAM 
TYPES THE NEXT MEMORY LOCATION, IPF AN 
o# IS TYPEO (# = OCTAL FIELD DESIGNATOR) 
FOLLOWED BY A SPACE AND 4 OCTAL DIGITS, 
THE LOGATION COUNTER [S CHANGED TQ THIS 
FIELD AND ADDRESS, IF NO LOCATION IS 
INPUT, THE DATA $S STORED STARTING AT 
4200 IN FIELD i, 


SAME AS THE ,AS COMMAND EXCEPT THAT THE 
LOCATION COUNTER [S SET TO 4408 IN FIELD 
1 AND CANNOT BE CHANGED BY THE USER, 


REQUESTED OATA IS TYPED FOR THE OPERATORS 
USE, THE DATA REQUESTS ARE} 


SIMULATED O REGISTER 

FPPei2 QO REGISTER 

SIMULATED A REGISTER 

SIMULATED B REGISTER 

SIMULATED MQ REGISTER 
SIMULATED FAC 

SIMULATED FPC 

SIMULATED INSTRUCTION REGISTER 
SIMULATED OP ADDRESS 


SIMULATED ADDRS REGISTER 


SIMULATED STATUS REGISTER 


SIMULATED TIME STATE REGISTER 
(SEE DESCRIPTION ON NEXT PAGE) 


MODE 








FS FPPei2 TIME STATE REGISTER 
(SEE DESCRIPTION BELOW) 


AP THE APY LOCATED IN THE PROGRAM, TRIS 
1S THE APT WHICH IS USED IF NO OTHER 
1S SELECTE 


x SIMULATED INDEX REGISTERS 

SH SJMULATED SHIFT REGISTER 

Al. ALL OF ABOVE 

F AAAA N Dantes dc STARTING AT FIELD F 
CNTRL OD RETURN TO DIAL 

CNTRL P RETURN TO PS8& MONITOR 

CNTRL C€ RETURN TO OTA MONITOR 


PO UO TTY ITI TTT CITI 
sopaseseaseseetaen TIME STATE REGISTER Snasanandausetaane 
HORSESESSORSEEFHHAHEHEEHEHSHEHREHHHSHHSEGH HEHEHE HHHGETH ERED 
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a i Ae » t+ Pf @ & e 2 ry, * & Sa t rt f# re 2 
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’ AC FUNCTION ' 
fa Br a. Me SEAS NEG ae ee bog Ra wuss bela sete phe 
Pheer pereeteophtoereeeseeraeeteeereeetarerecosoeebeseetedns 
r) e q 
' @2  , MOST SIGNIFICANT BIT OF THE TIME STATE , 
’ 01 | BIT 4 OF THE TIME STATE ; 
’ 22 BIT 2 OF THE TIME STATE 
: 23 , BfT 3 OF THE TIME STATE ' 
‘ a ] 
: 04 , GNR DEPOSIT FLOP (4) # ; 
; @5 , CNR FETCH FLOP (4) ¥ ; 
06 , NR EXECUTE FLOP ¢1) H ' 
a7 , CNR EXIT FLOP (4) H ' 
G8 , CNR INJATE FLOP (4) ¥ ' 
i 29 4  GNR PROCESS FLOP (1) H ’ 
a a 

1g 4, TMSC SPECIAL STATE (4) 4H ' 

11 . ‘MSC EXECUTE ¢1) 4H ‘ 

8 

9 


oo "= *= *= *e 
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PROGRAM CONTROL 


S2QeGQ aan Gg tt®@uvugqgees ee 


SA 


oA 


1G A 


eh 


“Rt 


aRT E 


» RF 


10M 


SET SINGLE 
STATE aDOR 


RESET SINGLE 
STATE ADDR 


EXIT ADDRESS 


CLEAR SINGLE 
STATE SWITCH 


RUN TRACE 


START EPM 


RUN FAST 


SET COMMAND 
REGISTER 


4 DIGI? OCraL AORRESS {5 

INPUT FROM TTy, THE PROGRAM WILL ENTER 
THE SINGLE STATE MODE WHEN THIS ADBRESS 
1S ENCOUNTERED IN THE STEP ROUTINE 


4 DIGIT OCTAL ADDRESS 13S INPUT 

FROM THE TTY, THE PROGRAM WILL EXYT THE 
SINGLE STATE MODE WHEN THIS ADDRESS [5S 
ENCOUNTEREG IN THE STEP ROUTINE 


4 DIGIT OCTAL ADDRESS IS INPUT FROM THE 
TTY, WHEN THIS ADDRESS 1S ENCOUNTERED 

IN THE STEP ROUTINE, THE PROGRAM WELL 

CLEAR THE FPPei2 WITH AN "FPICLY eT AND GO 
TO INITIATE TO RESTART THE FPP=42 AND THE 
SIMULATOR 


CLEARS THE PROGRAM SINGLE STATE 
SWITCH WHIGH WAS SET BY THE ,SA COMMAND, 


4 DIGIT ADORESS OF THE APT JS INPUT | 
FROM THE TTY AND THE FPPei2 AND SIMULATOR 
ARE STARTESH af THIS ADORESS, IF PRE APT 
ADDRESS {8 g@@8 THE PROGRAM APT ANB INDEX 
REGISTERS WILL BE USED TO RUN THE FPPPef2 
PROGRAM INPUT VIA THE ,AS COMMAND, 

TF THE USER SPECIFIES HIS QWN APT 
ADDRESS, THE FIELO BITS OF THE APT 
ADDRESS MUST BE SEY IN THE LAST Blé!t 

OF THE ,CM COMMAND, 


IF THE FIRST ARGUMENT OF THE ,RT 
COMMAND {S AN "E", TRE FPPed2 WILL 
BE STARTED IN THE EPM MODE, AND THE 
PROGRAM WILL WAIT FOR 4A SECOND 
ARGUMENT CONSISTING OF THE APT 
ADDRESS (,RT E 0208) 


SAME AS RT EXCEPT THAT THE SIMULATOR IS 
NOT USED AND THE FPPe42 RUNS [N [8 
NORMAL MODE (NOT MAINT) 


4 BPIGITS ARE INPUT FROM THE TTY ANB LQADED 
INTO THE PROGRAM COMMAND REGISTER, THIS 
WORD JS USED WITH THE "FPCOM" JOT FO START 
THE FPP=12. JF AN ALTERNATE APT ADDRESS 
1S USED WITH THE ,RT OR ,RF COMMANDS 

THE FIELO BIYS OF THE APT ADDRESS MUST 
INPUT AS YHE LaST DIGIT OF THE CM 
COMMANDS, 











o EX EXIY FPPed2 
134 SET SPECIAL 
SHIFT 
= 


A CPU FORCED EX!I? !8 ISSUED TO THE FPP2#12, 
THE CURRENT INSTRUCTION ¢S FINISHES AND 
THE FPPei2 EXITS STORING THE APT, 


2 JIGITS ARE LOADED FROM THE TTY INTO A 
SPECIAL SHYTFT COUNTER IN THE PROGRAM, AND 

A SPECIAL SHIFT FLAG IS SET, 

IF NO DIGITS ARE INPUT BEFORE THE SECOND 
TERMINATOR, THE SPECIAL SHIFT COUNTER WILL 
RE SET TO @ AND THE SPECIAL SHIFT PLAG WELL 
BE RESET, THIS SPECIAL SHIFT COUNT 1S 

USED IN THE MULTIPLY ANDO DIVIDE 7O ALTER 
THE NORMAL CYCLE OF THESE INSTRUCTIONS IN 
TIME STATE 2 ONLY, 
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8,14 DATA INPUT AXE GuTpur 
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SINCE IT IS NECESSARY TO INPUT FPPai2 INSTRUCTIONS AND 
OPERANDS TO 3E RUN, AND TO INTERROGATE THE STATUS OF THE 
SIMULATED RESISTERS, THE FOLLOWING TTY CONTROL COMMANDS 
ARE SEFINED, ANY TIME THAT THE TRACE PROGRAM IS RUNNING 
TYPING A CARRIAGE RETURN WILL TRANSFER CONTROL YO THE 
TYY MONITOR, TYPING "ALT MODE" WILL RETURN CONTROL TO 
THE TRACE PROGRAM, 


Bi4,i2 AS USED TO INPUT FPPet2 [NSTRUCTIONS WRITTEN BY THE 
USER TO BE RUN BY THE TRACE PROGRAM, ANY NUMBER 
OF INSPRUCTIANS CAN BE INPUT TO BE RUN IN 
SEQUENCE AS AN FPPe12 PROGRAM, THE INSTRUCTIONS 
MUST BE CONVERTED INTO OCTAL CODE BY THE USER 
AND MUST BE {NPUT IN OCTAL, CARE MUST BE TAKEN 1Q 
INPUT CORRECT FIELD DESIGNATORS IN THE COMMAND, 
THIS JS ESPECIALLY TRUE WITH BITS Seid OF DOUBLE 
WORD COMMANDOS, INPUT BATA JS NORMALLY STORED 
SEQUENTIALLY STARTING AT 4990 IN FYELD 1, 

HOWEVER THE USER MAY CHANGE THE STORAGE LOCATION 
AY ANY TIME TYPING AN ASTERISK ey BY 

A FIELD DESIGNATOR, A SPACE, AND 4 DIGIT 

ABSOLUTE ADDRESS (1,E, #2 3008), EACH TYME A 
CARRIAGE RETURN IS TYPED THE PROGRAM RESPONDS WITH 
THE NEXY ADDRESS TO BE STORED {NTQ, 

SINCE THE TTY MONITOR [S USED hae) [NPUT DATA If IS 
NOT NEGESSARY fO END THE AS COMMAND, QNCE THIS 
ROUTINE IS ENTERED I? WILL CONTINUE TO ACCEPT AND 
STORE BATA UNTEL A NEW COMMAND {8 INPUT, 


TWO EXTRA FEATURES OF THE {AS COMMAND ALLOW TRE 
USER TO INPUT FHE INITYAL SETTINGS OF THE Fac 
AND INDEX REGISTERS, WHILE IN THE ,AS ROUTINE 
TYPING "AC XXXX XXXX XXXX" WILL CAUSE THE 
PROGRAM TO STORE THE THREE OCTAL ARGUMENTS INTO 
THE FAG PORTION OF THE APT, fF¥PING "X# XXXX" 
(# = THE INDEX REGISTER NUMBER) WILL CAUSE THE 
PROGRAM TO STORE THE QETAL ARGUMENT INTO THE 
SPECIFIED INDEX REGISTER Located IN THE PROGRAM, 
AFTER THE ARGUMENTS ARE INPUT AND STORED BY THE 
PROGRAM THE NORMAL PORTION OF THE ,AS ROUTINE 
CONTINUES, BOTH OF THESE FEATURES ASSUME THAT 
THE USER WILL START THE PROGRAM WITHOUT USING AN 
AUXILIARY APT ADDRESS (SEE ,RT AND ,RF), 


8:4.2 QP USED TO INPUT OPERANDS FOR USE WITH THE FPPei2 
INSTRUCTIONS INPUT VIA THE ,AS COMMAND, OCTAL 
DNATA IS INPUT FROM THE TTY AND STORED SEQUENTIALLY 
STARTING AT 41492 IN FIELD 4, THE STARTING ADDRESS 
CANNOT BE MOSIFIED BY THE USER’, LIKE THE ,AS 
COMMAND THIS ROUTINE HAS NO WAY TQ END, THE ROUTINE 
WILL CONTINUE TO INPUT AND STORE DATA UNTILL A NEW 
COMMAND !S TYPED IN, 
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CNTRL O 


CNTRL P 


CNTRL C 


THE PROGRAM CAN TYPE OUT THE CONTENTS OF ANY MEMORY 
LOCATION(S), THIS IS NORMALLY USED TO INTERROGATE 

THE CONTENTS OF SIMULATED REGISTERS OR QPERANDS, 

(SEE "7,1,4 SUMMARY" FOR ARGUMENT LIST,), Abb 

TYPEOUTS EXCEPT FO, FS, AP ARE THE CONTENTS OF THE 
SIMULATED REGISTER AT THE TIME OF THE TYPEOUT, 

THIS JS THE INFORMATION YHAT SHOULD BE CONTAINED IN THE 
FPPe{2 HARDWARE REGISTER AT THE TIME, 

THE FORMAT OF THE REQUEST {S| 


7TY A BPO Fo ETC 


UP TO 48 ARGUMENTS CAN BE ENTERED IN ONE 
ARGUMENT STRING, EACH ARGUMENT IS SEPERATED 
BY a SPACE AND THE STRING {S TERMINATED 

BY A CARRAIGE RETURN, 


A SCOPE CAN BE USED TO FINS OUT IF THE HARDWARE 
REGISTER JS GORRECT OR IN ERROR, IF IT {8S KNOWN 
THAT AN ERROR OCCURS IN A SPECIFIC TIME STATE, THE 
FPPei2 AND TRACE PROGRAM GAN BE STOPPED BEFORE 
ENTERING THAT TIME STATE (SEE (SA), AT THIS 

TIME THE USER CAN TYPEOUT THE CONTENTS OF VARIOUS 
REGISTERS ANO GOMPARE THE FPPe{2 TO THIS DATA TO 
DETERMINE THE CAUSE OF THE FAILURE, 


THE YARIABLE TYPEOUT (F AAAA N) CAN BE USED TO 
CHECK FPPei2 INSTRUCTIONS AND OPERANDS INPUT BY THE 
USER BEFORE RUNNING THEM, IF THE VARIABLE 

TYPE OUT JS USED, THE ARGUMENTS MUST BE THE 

FIRST 3 ARGUMENTS AND NO OTHER ARGUMENTS 

WILL BE PROCESSED 


ANY TIME THE PROGRAM [$ TYPING OUT, {7 CAN BE STOPPED 
BY TYPING A RETURN ON THE KEYBOARD, | 
THE PROGRAM WILL THEN RETURN CONTROL TO THE TTY MONITOR, 


ANY TIME AN ERROR YS DETECTED, THE TY ROUTINE . 
1S ENTERED AFTER THE ERROR TYPEOUT (SEE "ERRORS" 18,) 
WITH A PRESET ARGUMENT STRING, THIS ARGUMENT 

STRING IS ENTERED WITH THE ,EL (ERROR LIST) 

COMMAND, WHEN THE PROGRAM 1S LOADED THE ERROR 

LIST CONTAINS fHE FPC AND INSTRUCTION REGISTER, 

THES CAN BE GHANGED TO ANY ARGUMENT STRING THAT 

CAN BE ENTERED IN THE TY COMMAND EXCEPT THE 

VARIABLE TYPEOUT FORMAT, 


THE PROGRAM WILL READ THE DIAL MONITOR IN FROM 
TAPE UNIT @ AND TRANSFER CONTROL TO THE OLAL 
MONITOR, 


THE PROGRAM jUMPS TO 760@ IN FIELO @, IF THIS 
AREA OF MEMORY HAS NOT BEEN ALTERED, CONTROL 
WILL BE TRANSFERED TO PS8&, 


THE PROGRAM JUMPS TO 7708 IN FYELO 8, IF THIS 
AREA OF MEMORY HAS NOT BEEN ALTERED, CONTROL 
WILL BE TRANSFERED TO THE DTA MONITOR, ye 


itaalasaaads -comiteerteee, = 
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SINGLE STATE CONTROL 


EyERY TIME Srare TS ENFERED THROUGH A SYBROYTINE CALLED 
"STEP", YHE DEFINED INSTRUCTION “FSTEP" GOES TO STEP, 

IT 18 IN THE "“STEP™ ROUTINE THAT MOST ERROR ARE DETECTED, 
THE "STEP! ROUTINE ALSO CHECKS VAR{OUS INFORMATION JNPUT 
Ry THE USER TO CONTRAL THE OPERATION OF THE PROGRAM, 

IN THE SINGLE STATE MODE THE PROGRAM WILL TRANSFER 
CONTROL TO THE TTY MONITOR EACH TIME If ENTERS THE "STEP" 
SUBROUTINE, THIS IS DONE AFTER CHECKING FOR ERRORS, BUT 
BEFORE STEPPING THE FPP=42 TO THE NEXT TIME STATE, THE 
FOLLOWING COMMANDS ARE USED TO INPUT THE INFORMATION USED 
1N THE "STEP" ROUTINE, THE ADBRESS REFERRED FO [S THE 
ADDRESS IN WHIGH THE "FSTEP" INSTRUCTION CALLING THE 

STEP ROUTINE JS LOCATED, 


7SA EACH TIME THE "STEP" ROUTINE JS ENTERED, THE ADDRESS 
INPUT AS THE ARGUMENT IN THE ,SA COMMAND [S COMPARED 
WITH THE ADDRESS [F THE "FSTEP" INSTRUCTION, JF 
THERE }S A MATCH, THE PROGRAM SEYS THE PROGRAM SINGLE 
STATE SWITCH, THE PROGRAM WILL THEN BE JN THE SINGLE 
STATE MODE, THE PROGRAM SINGLE STATE SWITCH 
PERFORMS THE SAME FUNCTION AS SWITCH 3 ON THE CONSOLE, 
(SEE SWITCH OPTIONS 9.) ‘THE PROGRAM WILL STEP THROUGH 
ONE TIME STATE EACH TIME AN "ALT MODE" JIS TYPED, 
BEFORE TRANSFERRING TO THE TTY MONITOR THE PROGRAM 
WILL -TYPE THE LOCATIONS’ OF THE "FSTEP" INSTRUCTION, 
THE USER CAN THEN LOOK AT PHE LISTING TQ FIND WHICH 
TIME STATE 18 ABOUT TO BE ENTEREO, IF THE ,SA 
ARGUMENT JS @@02 THERE WILL NEVER BE A MATCH SO THE 
THE PROGRAM WILL NOT ENTER THE SINGLE STATE MODE, 


RA EACH TIME THE "STEP" ROUTINE JS REENTERED 


FROM THE TTY MONITOR IN THE SINGLE STATE MODE, THE 
ADDRESS OF THE "FSTEP" INSPRUCTION IS COMPARED WITH 

THE ,RA ARGUMENT, IF THERE {S A MATCH, THE PROGRAM 
SINGLE STATE SWITCH IS RESET AND THE PROGRAM CONTINUES, 
BY USING THE SA AND ,RA COMMANDS TOGETHER, THE 

PROGRAM CAN BE RUN IN THE SINGLE STATE MODE FOR A PEW 
TIME STATES AND IN THE CONPINUOUS MODE FOR ALL EXCEPT 
THOSE TIME STATES, 











a 


8,2.4 


1EA 


THE PROGRAM SINGLE STATE SWITCH IS CLEARED 
RY THIS COMMAND, YHE SET SINGLE STATE ADRESS 
(.SA) AND RESET SINGLE STATE ADDRESS (,RA) ARE 
NOT AFFECTED, THIS COMMAND ALLOWS THE USER TO 
ENTER THE SINGLE STATE MODE AT A GIVEN TIME STATE 
WITH THE ,SA COMMAND AND STEP THROUGH A VARIABLE 
NUMBER OF TIME STATES, THEN CLEAR THE SINGLE 
STATE SWITCH TO RUN CONTINUOUSLY UNTILL THE 

TIME STATE [JS REACHED AGAIN, 


FACH TIME THE "STEP" ROUTINE JS ENTERED, THE 
ADDRESS OF THE "“FSTEP" INSTRUCTION IS COMPARED 
WITH THE ,£A ARGUMENT, [F THERE JS A MATCH, 
THE PROGRAM ISSUES AN "FPIEL" JOT TO THE FPP#42 
AND GOES TO ¢NUATE TO RESTART THE FPPet2 AND 
THE SIMULATOR, THIS COMMAND [S USEFULL IF AN 
ERROR OCCURS IN THE MIBOLE OF A MAJOR STATE, 
THE REMAINING FIME STATES AND {NSTRUCTIONS CAN 
RE BYPASSED, 

1F THE EA ADDRESS {S$ WSED, THE EPM MODE ¢[S 
RESET, THEREFORE IF THE EPM MODE !S BEING 
TESTED, THE FIRST INSTRUCTION OF THE FPPele 
PROGRAM SHOULD BE A "START Et ENSTRUCTION (2252); 


y aN 





8,3,4 


8.3.2 


THE FOLLOWINGS COMMANDS ARE USEB 79 SETUP, START AND 
STOP THE TRACE SIMULATION OF AN FPPe{2 PROGRAM, 


cM 


SH 


LOADS THE COMMAND REGYSTER wiTW ONE 12 BIT 

WORD (4 OCTAL DIGITS), THIS WORT IS ENTERED 

AS THE ARGUMENT OF THE ,CM COMMAND, 

THE COMMAND REGISTER WILL BE USED WITH A NFPCOM! 
1QOT WHEN STARTING THE PPPe{2 AND THE SYJMULATOR, 
IF AN AUXJL]TARY ADDRESS 3S USED WITH THE ,RT OR 
JRF COMMANDS, THE FIELO BIS OF THE APT ADDRESS 
MUST BE ENTERED AS THE LAST DIGIT OF THE ,CM 
COMMAND, 


A MAINTENANCE {OT IN TRE FPPei2 ALLOWS A USER 

TO LOAD THE SHIFT COUNTER UNDER PROGRAM CONTROL, 
THIS IS ONLY USEFULL IN A MULTIPLY OR OIVIDE 
INSTRUCTION, TYPING ,SH WITH AN ARGUMENT 
CONSISTING OF A TWO OCTAL OIGIT NUMBER WILL LOAD 
A SPEC{AL SHIFT REGISTER WITH THE ARGUMENT AND SET 
A SPECIAL SHIFY FLAG, WHEN TIME STATE 2 OF A 
MULTIPLY OR DIVIDE JS ENTERED, THE PROGRAM 

LOOKS AT HE SPECIAL SHIFT FLAG, IF THE FLAG JS 
SET, THE SPECIAL SHIFT REGISTER IS LOADED INTO 
THE HARDWARE AND SIMULATED SHIFT COUNTER, 


TYPING ,SH FOLLOWED BY TWO TERMINATOR CHARACTERS 
WITH NO ARGUMENT WILL RESEF THE SPECIAL SHIFT 
FLAG AND ZERO THE SPECTAL SHIFT REGISTER, 

















THIS COMMAND TRANSFERES CONTROL TO THE 
TRACE SIMULATOR, THIS WILL START THE FPPet2 
IN MAINYENANG@E MODE ANB TRACE EACH TIME STATE, 


THE PROGRAM WAS THE ABILITY TO RUN A FPPed2 
PROGRAM LOCATED ANY WHERE §~N MEMORY OUTSIDE 

THE LIMITS OF THE TRACE PROGRAM, THE APT AND 
INDEX REGISTERS CAN ALSO BE LOCATED ANY WHERE 
IN MEMORY EXCEPT LOCATION goog OF ANY MEMORY 
FIELD, WITHIN THE TRAGE PROGRAM JS AN aPT 
WHICH ~S SET UP AUTOMATICALLY TO RUN A FPP#42 
PROGRAM LOCATED AT 4@08 IN FIELD 4, THE BASE 
POINTER IS SET TO 4100 IN FIELD 4, THE INDEX 
POINTER 1S SET TO A SEP OF INDEX REGISTERS 
LOCATED WITHIN THE TRACE PROGRAM, THIS APT 

AND INDEX TABLE 2S FOR THE CONVIENENCE OF THE 
USER SINCE THE ,AS AND ,OP COMMANDOS STORE 

THIER DATA IN FIELO 4 AT LOCATIONS 4808 AND 4482 
RESPECTIVLY, THIS APT AND INDEX TABLE 

WILL BE USED IP THE USER SPECIFIES ADDRESS 

90909 AS THE APT ADDRESS, THE USER MAY SPECIFY 
THE ADDRESS OF HIS OWN APT BY TYPING ",RT ADDR", 
THE AUXILIARY APY ANDO YNOEX REGISTERS MAY BE 
SETUP BY USING THE ,4S COMMAND, THESE MAY ALSO 
BE PART OF A REAL FPPed2 PROGRAM LOCATED IN 
FIELO 2 OR ABOVE WHICH WAS PREVIOUSLY LQADEQ 

BY SOME OTHER MEANS, 

IF THE ARGUMENT ENTERED [S AN "E", THE FPPa4i2 
WILL BE STARTED IN THE EPM MODE AND THE PROGRAM 
WILL WAIT FOR A SECOND ARGUMENT WHICH WILL BE 
THE AP? ADDRESS, (,RT E 0800) 

TF THE ARGUMEN® 3S NOT AN "EW" THEN ONLY ONE 
ARGUMENT WILL BE ACCEPTED, 


” a 
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6,3,4 


8,3,5 


J 


an 


WRF 


1 EX 


a 


THIS COMMAND STARTS THE FPPet2 IN THE NORMAL 
RUNNING MO3E, NO ERROR CHECKING OR TRACING 

IS DINE, THE PRIMARY USE OF THIS COMMAND 

IS TS ALLOW THE FPPe42 TO RUN A PROGRAM aT 

ITS FASTEST SPEED FOR SCOPING, THE ARGUMENTS 
ARE THE SAME AS THOSE FOR ,RT (SEE 8,3,3), 
ONCE THE FPPei2 IS STARTED THE PROGRAM WATS 
IN A LOOP FOR THE FPPed2 Ta EX{T OR FOR AN 
INPUT FROM THE TTY KEYBOARD, THE USER CAN 
TYPE A CARRAIGE RETURN TO BRING CONTROL TO THE 
TTY MONITOR, AT THIS FIME THE FPPei2 TS STILL 
RUNNING SUT THE PROGRAM IS NOf CHECKING [7, 
TYPING A ,EX COMMAND AY THES YIME WILL FORCE 
THE FPPei2 TO EXIT AND RETURN CONTROL TO THE 
TTY MONITOR, 


IF THE FPPel2 {S RUNNING, A "CPU FORCE EX}T! 
[OT 1S ISSUED, SUFFICIENT MAINTENANCE JOTS 
ARE !SSUEO To ALLOW THE FPPet2 TO COMPLETE 
ITS CURRENT INSTRUCTION AND STORE THE APT, 
THUS PERFORMENG A NORMAL EXIT’, 











9; SWITSH OPTIGNS (USED ONLY IN TRACE MODE) 


SROQ 
SR24 
SR22 


SRBS 


SRB4 


SRB5 


SR26 


SRit 


(1) 
(1) 
(1) 


(4) 


(1) 


(4) 


(4) 


(3) 


INHIBIT ERROR WALT 
INHIBST ERROR TYPEOUTS 


RESTART PROGRAM AFTER AN EXIT, USED JN BOTH 
TRACE ANDO FAST MODE, 


SINGLE STATE MODE, OVERRIDES THE ,SA ,RA {CL 
COMMANDS (SEE "SINGLE STATE CONTROLS” 8,2) 


FNTER STOP, STOPS THE PROGRAM EACH TIME A MAJOR 
state §S ENTERED, TYPE ALT MOOE TO CONTINUE, 


TTY FRACE, TYPES FACH MAJOR STATE AS IT I8 
ENTERED, 


INHIBIT ERROR LIST TYPEOUT, ERROR LIST 
1S THE ARGUMENT STRING ENTERED WITH THE 
“EL GOMMAND, HE ERROR LINE OF THE 

TYPEOUT WILL STILL BE TYPED IF SROL ®& 2B, 


OUTPUT MESSAGES ON THE LP@S OR LP12 
LINE PRINTER INSTEAD OF THE TTY, 


ose nm ariek taser pete ek 


roms eh tow 


10), 


~ o~ 
Od é 

ERRIRS 

Saeesan 

TUE TRACE PROGRAM CAN DETECT 7 TYPES OF ERRORS IN THE FPPef2), 

TWERE JS ONE YYPFOUT IN THE ERROR ROUTINE WHICH MAY OR 

MaY NOT BE AN ERROR, THIS TYPEOUT OCCURS IF THE FPP#12 

CID NOT CAUSE A SKIP AFTER A "FPST" JOT, AFTER THE TYPEOUT, 

CONTROL IS TRANSFERED T0 THE TTY MONITOR, YYPING 

"ALT MODE" WILL CAUSE THE PROGRAM Y0 CONTINUE RIGHT AFTER 

THE "RPPST" JOT, THIS TYPEOUT YS} 


"PPPei2 DID NO? START 


ONE ERROR, DATA ERROR STORING THE APT, WHICH JS THE LEAST 
LIKELY TO OCCUR HAS {7S OWN MESSAGE FORMAT, HIS 
ERROR TYPES THE MESSAGE! 


"ERROR SAVING APT IN Ex] 


APTER TYPING THE MESSAGE, SINCE THE FPPei2 HAS FINISHED 
ae oa THE PROGRAM CONTINUES AS THOUGH NO ERROR 
COCURED, 


ALL OTHER ERRORS TYPE A MESSAGE WITH THE SAME FORMAT, 


"ERROR XXXX # MAJOR STATE @ REG! 
FPC. aFIELD ADOR 
qR e{Nst 


THE MEANING OF THIS MESSAGE IS] 


ERROR SINCE PHE TTY IS USED FOR OTHER TYPEOUTS, 
THES $$ DISTENGUISHED AS AN ERROR MESSAGE, 


XXXX THE P,C, OR P,G,¢1 OF THE INSTRUCTION THAT TRANSFERED 
TO THE ERROR CHECKING ROUTINE, BY LOOKING IN THE 
LISTING AT THE P,C, LOCATION (ALWAYS FIELD 8), 
THE USER CAN DETERMINE WHIGH TIME STATE FAILED, 
IF THE PC, POINTS TO A LOCATION OF AN “FSTEPH 
INSTRUCTION, THE ERROR WAS GENERATED JN THE 
PREVIOUS TIME STATE, 


MAJOR THE MAJOR STATE IN WHICH THE ERROR WAS DETECTED, 
STATE THIS IS OFTEN THE FAILING INSTRUCTION, 


REG THE REGISTER FOUND TO BE IN ERROR, 1,6, 0 REG, 
FpC THESE 2 LINES ARE THE REQUESTS ENTERED INTO THE 
IR ERROR LIST (SEE \EL COMMAND 8,1.3,4), 


THE ERROR LIST CONTAINS THE FPC AND IR JF NO 

LIST WAS ENTERED BY THE USER, THIS ERROR LIST 
CAN BE UP TO 18 LINES, SETTING SRO6 = 1 WILL 
INHIBIT THIS PORTION OF THE TYPEOUT, 

IF SROY 2 4 THE ENTIRE TYPEOUT WILL SE INHIBITED, 


EXAMPLE 


Zeecwaea oe @ 











ERROR 3600 » MULTIPLY » O REG 
Fac 20804 42614 
{Rx 244144 


THE FRROR WAS DETECTEQ IN THE 0 REGISTER OQURRING THE 
MULTIPLY MAJOR STATE, THE P,C, TELLS US THAT THE ERROR 
OccuRED IN TIME STATE 2 (THE PC, POINTS TO THE "FSTEP" 
1VSTRUCTION TO ENTER MULTIPLY STATE 2, THIS !S FOUND 
IN THE LISTING AT ADDRESS 3600), 


THE MULTIPLY JNSTRUCTION [S LOCATE® IN FIELD 4 AT LOCATION 
4257, THE FPC s 10426¢ WHICH 3S THE INSTRUCTION LOCATION #& 2 
OF A DOUBLE WORD INSTRUCTION, 


THE INSTRUCTION IS A DOUBLE WORD MULTIPLY USING INDEX 
REGISTER 4 wITWH NO INCREMENT (4441), SEE THE FRPet2 
INSTRUCTION COBE CARB FOR DETAILS OF THE ADDRESS MODES 
AND THE OP CODES’, 
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THE PROGRAM LISTING SOHSHODORHTEHEHEEHE 


SEVERAL PRE@DEFINED INSTRUCTIONS ARE USED IN THE TRACE 
SIMULATOR, THESE INSTRUCTIONS ARE DEFINED AT THE 
BEGINNING OF THE LISTING, 


THESE INSTRUCTIONS ARE USED TQ SIMPLIFY THE CODING, 

AND TO MAKE THE LISTING RESEMBLE THE FPP#i2 FLOW PRINTS, 
THE CODING OF THE SIMULATOR WAS WRITTEN USING THE FPPsi2 
FLOW PRINTS, MANY OF THE COMMENTS ARE COPPIED FROM 

THE FLOW PRINTS, 


ANY TIME THE LESTING IS BEING USED, THE USER SHOULD ALSO 
HAVE A SET OF FRPPed2 FLOWS, USING THE FPPei2 FLOWS WILL 
CLARIFY THE PROGRAM LISTING AND MAKE IT EASY TO FOLLOW, 
AS FEW INSTRUCTIONS AS POSSIBLE ARE USED TO ACCOMPLISH 
THE FUNCTION OF ONE BLOCK IN THE FLOWS, 


THE START OF EVERY Ma¥JOR STATE AND TIME STATE 3S LABELED 
WITH A TAG THAT STATES AS CLOSE AS POSSIBLE WHICH MAJOR 
STATE AND TIME STATE Jf 38, MOST OF THE TAGS CONSIST OF 
THE MAWOR STATE NAME, ABBREVIATED, FOLLOWED BY THE TIME 
STATE NUMBER, (IE, INIT2 @ INITIATE STATE 2), 

AY TWE BEGINNING OF BACH MAJOR STAfE IS A TAG WITH THE 
MAJOR STATE NAME AND NO TIME STATE NUMBER, FROM THIS 
TAG TO THE FIRST TIME STATE ARE INSTRUCTIONS TO SETUP 
THE PROGRAM FOR TRE MAJOR STATE ANOS CLEAR TEMPORARY 
REGISTERS aND FLAGS, 


euveo NOTE oseee NOTE wenee NOTE aasae NOTE eaten NOTE snane 


SINCE DIAL AND PSe8 WILL NOT LOAD {NTO THE LAST PAGE OF FIELD 
0 THE "STEP" ROUTINE 18 LOADED INTO FIELD 4 STARTING aT 
LOCATION 3290, THE FIRST TIME THE PROGRAM IS STARTED AT 
LOCATION 2g, THE "STEP" ROUTINE IS SWAPPED WITH THE INFORMATION 
IN THE LAST PAGE OF FIELD 2, ‘THE LISTING SHOWS NO CODE 
GENERATED FROM 7608-9797 OF FIELD @ HOWEVER THIS [S$ WHERE 

THE "STEPN ROUTINE RES{DES WHILE RUNNING, TO WORK WITH THE 
"STEPH ROUTINE YOU MUS? GO TO THE LISTING IN FIELO 4 af 

3200 AND CONVERT THE CODE TO ADDRESS 7608, SINCE THIS 
ROUTINE RESIDES IN ONLY ONE PAGE OF MEMORY IT USES ALL 
RELATIVE ADDRESSING THEREFORE NO CODE NEEO BE CHANGED, 
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NYAL{2 Vea3 Ge APRa72 41107 
SW2 2 FRROR HALT 

Swi 0 ERROR TYPEQYT 

SW2 4 RESTART FPP AFTER EXIT 
Sw3 ¢ STEP MODE 

Sw 4 FNTER STOP 

Sws . TRACE 

SW4 1 INKIBIT ERROR LIST 
SW41 4 OUTPUT TO LINE PRINTER 
CONTROLS 

iSA LOAD STARY STEP ADDRESS 

aRA LOAD RESET STEP ADDRESS 

EA LOAD EXIT ADDRESS 

Ck CLEAR STEP FLAG (EXIT STEP MODE) 
,as ASSEMBLE 

yRT RUN TRACE MODE 

a RF RUN FAST MODE 

Pan TYPE CONTENTS OF REGISTER 

bb ENfER ERROR LIST 

2 tM LOAD COMMAND REGISTER 

EX FPP EX{T 

10P LOAD OPERAND TABLE 


104 SEf SHJFT COUNTER AND FLAG 
NO INPUT WILL RESET FLAG 


CNTRL OD RETURN TO DIAL 
CNTRL P RETURN TO PSB6 
CNTRL C RETURN TO DTA MONITOR 


PAGE 4 

















/ Swe 1, ERROR WALT OLAL1@ VOaS 6eAPRa72 {1427 


/ TYPESUTS 

/ PO PRAGRAM O REGISTER 
/ FO FPP 0 REGISTER 

/ A A REGISTER 

/ B B REGISTER 

/ MQ MQ REGISTER 

/ AC PROGRAM FAC 

/ PM PROGRAM MEMORY REGISTER 
/ PC PROGRAM FPC 

/ tR PROGRAM FIR 

/ OP OP ADORESS 

/ Ad ADORS 

/ ST STATUS 

/ PS PROGRAM STATE 

/ FS STATE READ FROM FPP 
/ AP APT 

/ x INDEX REGISTERS 

/ SH SHIFT REGISTER 

/ M MODE 

/ ALL OF ABOVE 

/ F AAAA N FIELD, 12 BIT ADOR, COUNT 
PMODE 


JMACRO DEFINITIONS 


DEPINE NPAGES 
JMP I (,#28087608 
PAGE> 
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6554 
6552 
6553 
6554 
6555 
6556 
6557 


6364 
6562 
6563 
6564 
6565 
6567 
6566 


' 6567 


66635 
6661 
6666 


66514 
6664 
6652 
6654 
6661 


6662 
66614 


FRROR WALT 


ae 


Olarig Ve2s GeaPRa72 41107 PaGEe % 


/ FPPed2 JOT DEFINITIONS 


PRINTS 
FPICLSs 
PPCOMs 
FPHL Te 
FPSTs 

PPRSfs 
PPISts 


FMAINTS 
RSTATEs 


ROMSws 
ROLSwWs 
RAPT. 
LSHFTs 
ROOPs 
ROEPMs 


/ \LP@8 


LSRe 
LSfe 
LPCe 


/ \Pi2 


LSEs 
LPRe 
LeFe 
LL8e 
LSds 


6551 
6552 
6553 
6554 
6555 
6556 
65387 


6561 
6562 
6563 
6564 
6565 
6567 
6566 
6567 


1OT/S 


6663 
6661 
6666 


1oT/s 


6631 
6664 
6652 
6654 
6661 


/ YoTéS FOR 


SFLGe 
CFLGe 


6662 
6664 


BOTH LINE PRINTERS USED 70 CHECK WHICH PRINTER TO USE 


/SET PRINTER FLAG FOR TEST 
/CHECK WHICH PRINTER [8 AVAILABLE 














Sw 


4577 
4576 
4575 
4574 
4573 
4572 
4574 
4572 
4567 
4566 
4565 
4564 
4563 
4542 
4564 
4568 
4557 
4586 
4555 
4554 
4553 
4552 
4551 
4559 
4547 
4546 
4545 
4544 
4543 
4542 
4544 
454g 
4537 
4536 
4535 
4534 
4533 
4532 
4534 
4530 
4527 
4526 
4525 
4524 
4523 
4522 
4521 
4520 
4547 


ERROR WALT 


/ INSTRUCTION 


AMBOe 
APBOes 
CAPTs 
CLRAs 
CLRACS 
CLRBs 
CLRMQS 
CLROs 
CMEMES 
CMEMFa 
DECAPTs 
DECOPs 
ENTERS 
FSTERS 
CGETAPTs 
GETOPRS 
GETPés 
GETXs 
INCAPTS 
INCOPs 
INCORS 
INCPCs 
INCSts 
INCXa 
LOaQaa 
LOADACs 
LOa0Ba 
LOADMOQs 
LO4008 
LOADOPs 
LOQOADPCs 
MOVEXe 
NORMe 
PUTXs 
REPMEN® 
SAEZa 
SAG2Za 
SALZe 
SAVEs 
SEPMa 
SEPMENs 
SHF TBs 
SHF TOs 
SHIF Ts 
SQEZ= 
STORA® 
STORBs 
TOMEMS 
TRACES 


JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
ums 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
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OlaLig V823 4#APRe72 41127 PAGE 4 
DEFINITIONS 
eSuBAB JA MINUS B TO 0 
CAODAB /& PLUS B TO 0 
CAPTC /COMPARE APT ADDRESS (ADRS) 
ECLRAX /CLEAR THE A REGISTER 
ECLRacx /CLEAR Fac 
PCLRAX /CLEAR THE B REGISTER 
ECLRMQX /CLEAR MQ 
CCLROX /CLEAR THE O REGISTER. 
CCMEML /CHECK MEMORY EXPONENT 
ECMEM2 /COMPARE MEMORY FRACTION 
PAPTDEC /ODECREMENT THE APT ADDRESS (ADRS) 
COPDEC /DECREMENT THE OP ADDRESS 
CSETUP /SETUP TO ENTER A MAJOR STATE 
[7600 /CHECK REGS AND STEP TO THE NEXT PEIME STATE 
CGAPT /QUTBRK USING ADRS 
CGOP /QUTBRK USING OP ABDRESS 
ecec /OUTBRK YSING Fec 
CXGETX /GET PROGRAM [NDEX REGISTER 
CINCS /YNCREMENT APY? ADDRESS (ADRS) 
EINCS /INCREMENT THE OP ADDRESS 
COPLUSS /INCREMENT THE O REGISTER 
EINC2 /INCREMENT THE FPC 
STING /INCREMENT TIME STATE REGISTER 
EXPLUS£ /INCREMENT THE PROGRAM INOFX REGISTER 
CTOA /L0A0 THE A REG WIfR REG IN NEXT LOCATION 
ETOAC /LOAD THE FAC WITH REG IN NEXT LOGATION 
eTOR /LQAD B REG WITH REG IN NEXT LOCATION 
eTOMA /LOAD MQ REG WITH REG IN NEXT LOCATION 
ETOO. /LOaD O REG WITH REG IN NEXT LOCATION 
eToor /,0AD OP ADDRESS WITH REG IN NEXT LOCATION 
ETOPE “OAD FPC WITH REG IN NEX? LOCATION 
EPINBEX /MOVE USER INDEX REGS TO PROG INDEX REGS 
—XNORM /NORMALIZE THE O REGISTER | 
EXPUFX /STORE DATA IN PROGRAM INDEX REGISTER 
CENOFF /RESEF EPM ENABLE 
CAFZ /SKIP IF FAC # Q 
CAGZ /SKIP IF FAC JS GREATER THAN @ 
CALZ /SKIP IF FAC JS LESS THAN @ 
CTOTMP /SAVE REG IN TEMP REG, 
ESKPEPM /SKIP IF EPM MODE 
CENON /SET EPM ENABLE 
CSHIFTB /SHIFT B REG RIGHT USING SHIFT COUNT 
ESHIFTO /SHIFT Q REG LEFT YSING SHIFT COUNT 
CSHIFTR /SWIFY REG 4 BI? ELTHER DIRECTION 
FOEZ ASKIP IF Q REG = Q 
CSTRA /STORE IN ALSW AND EXTEND SIGN TO AMSW 
CSTRA /STORE IN BLSW AND EXTENT STEN TO BMSW 
CMEMINS /SKIP IF ANSWER DOES NOT GS TO MEMORY 
eTRSKP /TYPE TEXT JF TRACING PROGRAM ¢(SR25 & B) 
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a ERROR WALT OtaLia VO8S 6eAPRe72 414127 PAGE 5 : 


/ REGISTER DEFINITIONS 


3822 
38235 
824 
3025 
2226 
8227 


2832 
GO34 
2832 
22335 
2034 
2835 


8236 
8837 
0249 
00441 
0942 
2043 


8944 
8045 


OMSWs 
OLSwWs 
OLSW4s 
OLSW2s 
OLSW3a 
OEXTs 


AMSWs 
ALSWe 
ALSW13 
ALSW2s 
ALSW3s8 
AEXTs 


BMSWs 
BLSWs 
BLSWis 
BLSW2s 
BLSW3s8 
BEXTs 


MQMSWs 
MOLSWa 


ORES 

OREGS]) 
OREGe? 
OREGsS 
OREGe4 
OREGeS 


AREG 

AREGed 
AREG#e 
AREGeS 
AREGe4 
AREG#5 


BREG 

BREGet 
BREGee 
BREGeS 
BREGe4 
BREGs5 


MQREG 
MOREG#4 


0046 MOLSWia MQREG#2 
2047 MOLSW2e MQREGSS 
0850 MOLSWSe MQREGS4 





8654 MQEX?s MQREGOS 
8968 TMSWa TREG 
C064 TLSWs TREGeS 
2062 TLSWis TREGe2 
8263 TLSWes TREGSS 
0964 TLSWS8s TREGe4 
9952 ACEXPa PFAC 
2053 ACMSWe PFAC#4 
8954 ACLSWae PFAC#e2 


0055 ACLSwis PFACSS 
0056  ACLSW2s PFAC+4 
0057 «= ACLSW3a PFACSS 


8853 FACFRe PFACe1 

















Sw2 


CELT 
0081 
6982 
0003 
oga4 
905 
0086 
087 


C220 





8924 


?OSB 
7482 
4900 
7732 
7732 
7733 
7734 
7735 
7736 
7737 
4922 
2208 
4002 
$120 


S200 
2020 
0088 
C088 
2082 
2082 
2000 
200 
0886 


0822 


5716! 


ERROR WALT 


REGSs 
FRRORS 
HAL Ts 
LOEXTs 
CADSTs 
STEPSWs 
EXADDRs 
ENTSYPa 
EXSTPs 
CKOa 
CKOPs 
LEF Ts 
RIGHTs 
TESTs 
OPERNDs 


OREGel 
22A2 
7482 
4200 


OYAL19 


CA0S817747600 


CAOST 
CADST #4 
CADST#2 
CADSTS3 
CADST #4 
CADSTeS 
4092 
280 
4980 
4199 


6eAPRa72 {1327 Pace 6 


/sednonwnaseeeasaoneeaBEGINNING OF PROGRAMsenanasencacsncadeaneins 


Th: 

Te, 
COMREG, 
EPM,. 
PSTAT, 
PIR, 
PXP, 


-CARYIN, 


028 


WoxcmMnanecena s 
2 


JMP 


BEGIN 


/FOR USE BY START 20 SWITCH ON POPei2 


PQ21 
4822 
023 
2924 
2225 
4926 
0027 


230 
B31 
2032 
BQ33 
8034 
8035 


B36 
037 
8340 
O41 
2842 
8043 


ag44 
0045 
2946 
2047 
2950 
0054 


0232 
083 
084 
0985 
0956 
0037 


0068 
C064 
S042 
068 
2064 
2065 


4282 
C220 
2280 
ABO 
8280 
8020 
0082 


8200 
2008 
080 
0009 
TET 
CLT 


BQO 
2089 
2089 
8088 
8082 
8082 


G2928 
0288 
0082 
8008 
0880 
2080 


2289 
2880 
0820 
2282 
2280 
8080 


ey) 
0200 
2282 
GB82 
2820 
2282 


ERROR WALT DIAL{G VOSS 


CAROUT, 
OREG, 


AREG, 


BREG, 


MOREGs 


PFAC, 


TREG, 


ae 


6eAPRe72 
/SIMULATED HAROWARE REGISTERS 


/O0 REGISTER 


/A REGISTER 


/B REGISTER 


/MQ REGISTER 


/FPP ACCUMULATOR 


/TEMP REG 


2 «© rt! f! Q 
Qa aA QR Qa ena aa & QQea ea s SV MOaan VT eea Qe A QQ Q & 





07 


PAGE 7 





Sw2 


1366 
2067 


7272 
2274 


7272 
2278 


074 
2975 


" 276 
8077 


8108 
2101 
8182 
8198 
0104 


2195 
2196 
107 
8110 
1i1 
e142 





4080 
2028 


282 
0822 
ADDO 
B80 


C822 
2820 


2080 
2220 


2020 


CT 


2088 
8880 
282e 


2088 
BOOe 
S002 
2082 
2082 
2082 


ERROR WALT 


PFPC, 


OPAQR, 


PAPT, 


PBASE, 


XZADR, 


SAVOM, 


EMEM, 
MMEM, 
LMEM, 
LMEM% 
LMEM2, 
LMEMS, 


™ «a ta Ca 


Baa VR a gag nm & a FS mc! at 


OlALIO = VORS 


6eAPRa72 i4i27 Pace 8 
/PPP PROGRAM COUNTER 


/OP ADORESS 


/ADORS 
/BASE REGISTER (Pg ABDRESS) 


/FPP JNDEX POINTER 





2220 
C201 


2224 


227 
8230 
@231 
8232 
8238 


2282 


2020 
2098 
2088 
2080 
2080 
BOSD 
2082 
0889 


Geis 
o908 
2800 
LY 
2909 
Bee 
9808 
age 
909 
oeeg 
0000 
oe0e 


0082 
O99 
2882 
2080 
2000 
2020 
8022 
2022 


FRROR WALT 


XO, 
Xia 
X2, 
XS, 
X4, 
x5, 
X6, 
X7 4 


AAPT, 
APT, 


PXO, 
PX. 
PX2, 
PX3, 
PX4, 
PX5, 
PX4A, 
PX7 4 


ad 
%w 
Ga 
®& 


MQ a QA aA eg 


PT 


wVMVwMa VgQeaeasescr’sw a Pp 


Qa r2aeea se 








GeAPRe79 {1:27 PaGe 9 


/PROGRAM INDEX REGISTERS 


/APY USED WHEN NO ADORESS 


/1S GIVEN WITH LRT OR RF COMMANDS 


/INDEX REGISTERS USED WITH ABOVE APT 











2234 
2235 
2236 
0237 
2242 
7241 
8242 
2263 
9244 
2245 
8246 
#247 
0250 
8231 
2252 
8253 


254 
8255 
8256 
6257 
0268 
8261 
8262 
8263 


264 


7322 
1777! 
3353 
3776! 
7624 
7106 
7718 
5775! 
4774! 
2432 
ogeo 
3776! 
4773! 
4772! 
4265 
5252 


8260 


4772! 
5684 
5665 


ERROR WALT 


START, 


BEGIN, 
DOTEX, 


KEYCK, 


EXiTwO, 


CLA ChuL 
TAD 
OCA 
OCA 
Las 
CLL RTL 
SPA CLA 
JMP 
JMs 
EOP 


OlaLia VeI3 


APTSAV 
OctHD 
FPPRUN 


STFPPo2 
TY? 


FPPRUN 
TITLE 
ASTER 
WORD 
eed 


KEYCK 
REFURN 


ASTER 
WORD 
KEYCK 


WORD 


Ge APRa72 14107 PACE 12 


/GET AST APT ADDRESS 
/STORE FOR RERUN 
/GLEAR FPP RUN FF 
/GET SWITCH REGISTER 


/SRG2 * 1 2 
/YES @ RESTART PROGRAM 
/TYPE END PRACE 


/CLEAR PROGRAM RUN FF 

/TYPE PROGRAM TIPLE 

/TYPE AN ASTERISK te) 

/ALLOW INPUT FROM FfTY 

/PROGRAM SROULB NOF RETURN HERE 


/GET TTY INPUT ape rine STATES 
7ZAND AFTER ERROR F9PFON 

/GET RETURN ADBRESS 

/SAVE FOR ext? Toe PRACE 


/TYPE AN ASTERISK te) 
/ALLOW TTY jyeut 
/RETURN TO FRAGE 


/LINK WITH THIS MEMORY PAGE 


265 


ERROR WALT 


WORD, 


REAO, 


OlALae@ v@az 6uAPRe72 11327 PaGE if 


JRECEIVE INPUT FROM TTY, ONE WORD AT A TIME, 
/A CARRIAGE RETURN OR SPACE WILL EXIT BACK TS 
/THE CALLING ROUTINE, 

/ALT MODE BOES A SPECIAL EXIT 


g 

CLA ChL 

DCA octWo /CLEAR LINKING WORDS 
OCA ASGWD | 

KSF JWALT FOR *TY 

JMP at 

KRB GET GHARAGTER FROM 77T¥ 
OCA ASCCH /SAVE CHARACTER 

TAO ASECH /ECHO CHARACTER 

TLS 

TSF ; 

JMP ed 

TOF 

TAD (0815 /CHECK FOR SPECIAL CHARACTERS 
SNA /RETURN ? 

JMP RET 

TAO (#23 /SPACE ? 

SNA 

JMP ft WORD 

TAD (al6 /PERIOO ? 

SNA j 

JMP oof 

yao (of24 /RUBOUT ? 

SNA 

JMP RUBOUT 

TAD (2 /ALT MODE 9 

SNA CLA —_ 

JMP ft = RETURN ARETURN TO SEMULATION 
TAD ASECH GET ASC!I! CHARACTER 
TAQ (9242 

SPA CLA . /CNTRL KEY ? 

JMP TREXIT /YES = EX3® TO MONITOR 














coe 


0325 
2326 
0327 
0330 
2334 
0332 
0333 
0334 
0335 
9336 
2337 
0349 
0344 
8342 
0343 
D344 
9345 
2346 
8347 
0350 


0351 


352 
0338 
2334 


8355 
0356 
0357 
360 
B361 
8362 
8368 
0364 
0365 
9366 
8367 
0370 
0374 
0372 
0373 
0374 
2375 
2376 
2377 


y 


1351 
0357 
3354 
1352 
0357 
7106 
7026 
7086 
1554 
3352 
13514 
356 
$351 
1353 
355 
7404 
7086 
1554 
3353 
5271 


C000 
2088 
BO88 
1982 


0777 
0007 
0297 
5462 
7540 
agae2 
7125 
7657 
2413 
7762 
7755 
9404 
7563 
7362 
7367 
6703 
4002 
14043 
1042 
2408 


FRROR WALT 


YAO 
AND 
OCA 


ASCCH, 28 
ASCWD, : 
OCcTW 


PAGE 


Chi 


Chi 


Be 
RETURN, STFPRaP 


DIALI2 


ASECH 
(79 
ASCCH 
ASGWD 
(79 


ASCCH 
ASCWO 
ASECH 
7 
ASECH 
OCTND 
(797 


ASGEGH 
OCTWO 
READ 


V883 


6eAPRe72 {1107 


/GET CHARACTER 
/STRIP TO 6 BITS | 
/SAVE 6 BI? ASEIT CHARACTER 
/GEY ASCI] WORD | 

/SAVE LAST CHARACTER 

/MOVE TO LEFT KALF OF WORD 


/INSERT NEW CHARACTER 
/SAVE Packed aSct{ word 
/GET ASCI} CHARACTER 
/EXTRACT O@TAL DIGIT 
/SAVE OCTAL DIGIT 

/GET OCTAL WORD 

/SAVE LAST 3 DIGITS 
/MOVE 4 OLGrI? Lert 


/INSERT NEW Ofer? 
/SAVE Octal WORD 
/GET NEXT GHARACTER 


/SPECTAL RETURN AQBRESS 


PAGE 12 





2489 
2421 
2482 
2483 


2404 
2485 
3496 
0427 
2410 
444 
442 


2413 


8444 


0415 
0446. 


0447 
0422 


8421. 


8422 
6423 
64246 


8425. 


8426 
0497 


6432 


8431 


2432 
2433 
3434 
2435 


ba FRROR WALT DIaLig V@e3 


4777! SA, 
1776! 
3775! 
5774/ 


1373 RET, 
6046 
6044 
5206 
6842 
7290 
5772! 


4777! DOT, 


1571 DOTCK, 
SOL8 
1379 
3Ofa 
1443 
3020. 
1449- 
7459 
S232 
7944 
4767! 
7642. 
8220: 
5490 


4766! DOQTERR, 
3004 
022 
8765! 


SET ENTER SINGLE STATE 


JMS WORD 
TAD OcTWOD 
OCA ENfSTP 
JMP DOTEX 
TAD (242 
TLS 

TSF F 
wMP ed 
TOF 

CLA 

JMP Exitwo 
JMS WORD 


6aAPRe72 44127 PaGe 13 


ADDRESS 

/ALLOW TTY INPUT 

/GET ADDRESS 

/SET ENTER ADDRESS LOCATION 
EXIT 


/INPUT PROM TTY WAS A EARRAIGE 
/RETURN, YPE aA LINE PEED 


EXIT WORD ROUTINE 
/SET TTY RETURN FOR COMMAND 


/BRANCH TQ COMMAND ROUTINE 


YAD (BRANCH 
DCA 18 

Tad (CNTRLS ed 
OCA 44 

TAD 3 44 

BCA Ti 

TAD } 18 

SNA. 

JMP DOTERR 
CLA 

Tad ASCwod 
SZA CLA 

JMP 17i0 

JMP ! Ti 
/COMMAND INPUT ERROR 
JMS TYP 

QMK 


ry 
JMP BEGIN#4 


/ADDRESS OF CHARACTER TABLE 
/ADDRESS OF ROUTENE TABLE 


/GET ROUTINE ABDRESS 
/SAVE ADDRESS 

/GEY CHARACTER SEf 

END OF CHARACTER PABLE ? 
/YES » [NPUT ERROR 


/NO 
COMPARE WIth TTY ASCLY INPUT 
A COMPARE ’ 


/NO # TRY AGAIN 
/YES » GO TO ROUTINE 


TYPE 79 


/TYPE ® ANB RESTART 











tthe me a 


it As, consae the Piaons 





Swe 


2436 
1437 
0440 
0444 
8442 
0443 
D444 
0445 
8446 
0447 
0480 
0434 


8452 
2483 
0454 
8455 


2456 
8457 
0468 
2461 
0462 
0463 
2464 
2465 


2466 
0467 
8479 
0474 
2472 
0473 
0474 
0495 


6556 
7012 
7622 
5246 
6554 
6561 
6557 
5243 
6552 
7320 
4764! 
57744 


4777! 
1776! 
3763! 
5774! 


ERROR HALT OLAL1@ V@e83 6eAPRel2 {it@? Pace 14 
Ex, FPRST /GET FPP STATUS 
RAR 
SNL CLA /1S FPP RUNNING ? 
JMP »o5 /NO 
FPHLT 7CPU FORCE EXIT - 
FMAINT /ADVANGCE TYMING UNTILL 
FPIST 
JMP 102 /EXYT 1S COMPLETED 
FPICL JCLEAR FPRai2 
CLA CLL 
JMS SETRET ASETUP RETURN 
JMP OOfEX /EXTT ROUTINE 
/SET EXIT ADDRESS 
FA, JMS WORD /ALLOW TTY INPUT 
TAD OCPWO /GET ADDRESS | 
DCA EXADOR /SAVE IN COMPARE WORD 
JMP DOfEX /EXIT ROUTINE 
/LOA0 O@PERAND TABLE 
LOOP, TAD (OPERND@4 /GET TABLE ADDRESS 
DCA 41 
JMS WORD ALLOW TTY INPUT 
TAD ocfwo /GET OCTAL WORD 
COF 42 /STORE IN PLELO f 
oca tft 44 
cor Be. /RESTORE OATA FIELB 
JMP ,08 /GET NEXT WORD 
genAe INDEX REGISTER (ENTERED FROM ,aS ROUPINE) 
LOOX, TAD octwo /GET OCTAL WORD 
AND (7 ZEXTRACT INDEX REGISTER 
Tad (PXg /ADD ADDRESS OF INBEX REG B 
DCA Th /SAVE INDEX aDBRESS 
JMS WORD /ALLOW TTY [INPUT 
Tad OCfWO /GET OCTAL ARGUMEN? 
OCA: TS /SEY INDEX REGISTER 
MP ASe4 /GO BACK T8 AS ROUPFINE 


wah eee era et 





2476 
2477 
3580 
2581 


582 
8583 
3594 
8585 


4777! 
1776! 
3756! 
5774/ 


3755/ 
3754! 
4753! 
5752! 


3755/ 
3754! 
4753! 
7200 
1755! 
6567 
4751/ 
6585 
7482 
7200 


3930 
3004 
1342 
7049 
3342 
1342 
6034 
7448 
4747! 
6557 
7410 
5746! 
2001 
5327 
2000 
5327 
5347 


FRROR HALT 


RA, 


RT, 


RF, 


RFA, 


RFB, 


DIAL42 VOSS 


/SET RESET SINGLE STATE 


JMS WORD 
TAD OCTWD 
NCA EXSTP 
MP DOTEX 
/RUN TRACE MODE 
DCA FSTEPM 
DCA PSTEPM 
JMS STFPP 
JMP INET 


/RUN FAST MODE 


QOGA FS?EPM 
OCA PS?EPM 
JMS STFPP 
CLA 

Tad FSTEPM 
LSHFT 

Tad AAPT 
FPST 

HLT 

CLA : 
rad (#88 
DGA T1 

OCA T2 
TAD Acair 
CMA 

DCA ACBIT 
Tad acai? 
KSF 

SKP 

JMs KEYCK 
FRIST 

SKP ; 
JMP START 
1S2 Te 

JMP RFB 
1Sz Ti 

JMP RFa 
JMP RFA 





-_ 


GeAPRa72 71107 Pace 13 


ADDRESS 


/ALLOW TTY INPUT 

/GET OCTAL WORD 

/SET EX}T COMPARE WORD 
/EX]T 


RESET EPM START FLAG 

/RESET EPM START FLAG 

/SETUP TO START FPP 

/START TRACE AND FPP IN INJATE 


/RESET EPM START FLAG 
/RESET EPM START FLAG 
/SETUP TO START FP 


/GET EPM Starf Ah 
/START IN €&Pm MOGE IF FLAG IS SET 
/GET ADDRESS OF APf 
/FPPeo42 START ERROR 


/GET TIME GONSTANT 
/SET TIMER 


/GET CONTENTS OF BIT PATTERN 
/COMPLIMEN? 

/RESTORE 

/,Q0A0 BIT PATTERN 

/CHECK KEYBOARD FLAG 


/GET TTY INPUT 
(19 PPPeat FINISHES ? 


IN 
/YES © EXI¢ a 

/TIMEOUT BEFORE COMPLIMENTING AC 

/AC FLASHES ON AND OFF WHILE WAITING 











Swo a ERROR HALT OLAL12 vVeas 6eAPRe72 {110% Pace 16 


2542 08202 ACBIT, 2 


9543 3745! thy OCA STEPSW /CLEAR STEP SWITCH 
0544 5774! JMP DOTEX /EX]T 


0545 7732 
8546 0234 
2547 254 
8550 7768 
0551 s2i¢ 
0532 10946 
2553 1090 
0554 1044 
0585 1045 
0536 7735 
0587 8604 
0562 2224 
0561 8027 
0562 4877 
8563 7733 
0564 7384 
0565 9289 
2566 6783 
2567 2382 
0590 7336 
O571 6341 
B572 0264 
9573 eile 
0574 8254 
0595 7734 
8576 2353 
0577 0265 
Bee PAGE 


fo™) 
CS 


ties tna eine an mel tnrit 





2640 
oat 
2602 
1603 
0604 
2605 
3606 
2687 
Dodo 
odd 
8612 
643 
8644 
8645 
3646 
0647 
620 
2624 
2622 
0623 
8624 
0625 
2626 
8627 
9632 
D634 
8632 
0633 
8634 
8635 
2636 
2637 
8642 
2644 
8642 
2643 
D644 
8645 


—<e& 2646 


2647 


2 


ERROR WALT 


ASGET, 


ASFLB. 


Of alia 


palin, 


SeAPREe72 41107 PaGE 17 


/ASSEMBLE AN FPPel2 PROGRAM 


TAD 
DCA 
TAO 
OCA 
TAD 
TAD 


SZA CLA 


JMP 
JMS 
ASPNTR 
ASADOR 
JMS 
ASADDR 
' 


JMS 
TAD 
AND 


(TEST 
ASPNTR 


(COF 18 


ASFiLD 
ASCCH 
(~215 


ASGET 
ASC 


TYPNCR 


WORD 
ASCWD 
(7909 
($102 


LDAC 
(92799 


Loox 
(92288 


ASLOC 
OcTWwd 
8 


10 | 
ASPNTR 
88 
ASPNTR 
ASe4 
ASFLD 
(18 
(78 


DOTERR 





/GET BUFFER ADDRESS 
/SET POINTER | 
/ASSEMBLE {N FIELD 4 


/GET ASCII CHARACTER 

/SUBTRACT RETURN a 

WAS INPUT TERMINATED BY A RETURN 
/NO = GET NEXT WORD ~ 

/CONVERT ABDRESS TO ASer} 


TYPE AODRESS 


/ALLOW TTY INPOT 
/GEY ASGI! WORD 

/EXTRACT LEFT CHARACTER 
ASUBTRAGT wan 

INPUT @ AG ? 
/YES » LOAG FAC EN APT 
/SUBTRACT ns 

AINPUT 8 

YES « set INDEX REGISTER 
/SUBTRACE 

/NEW LOCATION ¢ 
/YES @ SET Pact EQUNTER 
/NO @ INPUP { 

/CHANGE OA?a FIELO 
/STORE DATA 

TRESTORE DATA PIELS 
/INGREMEN? POINTER 
/POINTER [8 OK 

/POINTER OVERFLOWES FIELD 
/INCREMENT FLELD POINTER 
/EXTRACT FYELO BITS 
/OVERPLOW f0 FYELO @ ? 
/YES e ERROR | 
/OK » MAKE COP INS?PRUCTION 
/MODIFY PROGRAM 
/YES » TYPE POINTER 











f 

: 

1 ae 
U 

NL mba 


Swe 


2650 
C654 
682 
2653 
2634 
2685 
2656 
0687 
2662 
2661 


0662 


2663 
2664 
0665 
0666 
0667 
9690 
0671 
0672 


2677 


2782 
8783 
0704 
7285 
076 
1787 
8710 


O741 
7412 


1356 
3oi4 
4355 
3000 
4771! 
1763! 
3444 
2000 
5254 
5204 


ERROR HALT 


CLrALag V283 6eAPRe72 {1107 PAGE 18 


/L0aD FAC IN APT (ENTERED FROM AS COMMAND) 


LOac, YAD (APT#4 /ADDRESS OF Fac 
DCa ii 
TAD (a3 /WORD COUNT 
DCA T1 
JMS WORD /ALLOW TTY INPUT 
TAO OCcfWo /GET QCTAL WORD 
pce i 434 ASTORE IN AC 
152 Th | 
MP 24 /GET NEXY WORD 
UMP ASe4 /GO BACK TO AS ROUTINE 
ASPNTR, 2@ 
ASET SPECIAL SHIFT 
SH JMS WORD JALLOW INPUT FROM PTY 
TAO ASEWD /GET ASCI} WORD . 
SZA CLA WERE ANY GHARACTERS INPUT ? 
STA . 7YES = AC @ 7797_— 
Oca SHFLAG /SET OR RESET SHIF? FLAG 
Tad octwD /GET OCTAL INPUT 
OCA SHPCNT SET SPECITAL SHIFT COUNT 
JMP OOTEX EXIT 
SET THE COMMAND REGISTER 
GM, JMS WORD /ALLOW TTY INPUT 
TAD ocfwo /GET OCTAL WORD 
DCA COMREG /SET COMMAND REGISTER 
JMP DOFEX EXIT 
/CHANGE ASSEMBLY LOCATOR 
ASLOG, TAD octwo /GET FIELD DESYGNafOR 
AND (7 /EXTRACT LAST B16r? 
tt RAL /MOVE TO BITS 608 
RTL 
TAD (COF /CREATE CDP INSTRUETION 
OCA ASFLOD CHANCE AS ROUTINE 
JMS WORD /ALLOW TTY INPUT 
TAD octwo /GET NEW ABDRESS 
DCA ASPNTR /SEY POINTER | 
JMP ASe4 /RETURN 7O AS ROUTINE 
MFLD, 2 /THESE 2 CONSTANTS ARE USED BY 
SAVMEM, 2 /ANOTHER ROUTINE ( CMEM1 } 


ges 
e e 4 a 
4 ; : 
x A / \ £ 


A2mE Re Heng MaNIOR Meo NR OMNLLNA, REE OIE Name ennRMetontNtdanenat fee 


2713 
0744 
0745 
0746 
6747 
0720 
8724 


0722 
87248 
0724 
0725 
0726 
0727 
8730 
0734 
0732 
0733 
0734 
0735 
0736 
0737 


8754 
9782 
0753 
0754 
0755 
0756 
0787 
0768 
8761 
2762 
8763 
0764 
765 
0766 
2767 
8770 
B774 
8772 
773 
8774 
0775 
0776 
0777 


2000 
7332 
3752! 
7201 
3754 / 
4774! 
57413 


8088 
G222 
0089 
2980 
2088 


ERROR WALT 


STEPM, 


SHPLAG, 
SMFCNT, 
SHREG, 
EXITSW, 
FLAG: 
FLAG2, 
FLAGS, 
CSTATE, 
EXWO, 
OVFL, 
IGNFL 
MTi, 
MT2a_ 
MOPLAG, 


2 

CLA STL 
OCA 

CLA IAC 
DCA 

JMS 

JMP f 


/FLIP PLOPS » TEMPORARY 


Qa eearaaaeaeaqeaaQenca sa 


PAGE 


OlaLi2 Vass 


RAR 
FSTEPM 


PSTEPM 
WORD 
STEPM 


6uAPRe72 {1127 PAGE 19 


/START IN EPM MORE 

sac = 4932 

/STORE IN START WORD 

AAC & BASAL 

/STORE IN PROGRAM STAR? WORD 
/ALLOW TTY INPUT FOR NEXT ARGUMENT 
/RETURN 


LOCATIONS «= CONSTANTS 


/SPECTAL SWIFT FLAG 
/SPECIAL SRIFT COUNT 

/FPP SHIFT COUNTER 

/EXIT SWITGH 

/GENERAL PURPOSE FLIP PLOPS 


/PROGRAM STATE GENERATOR 


/QVERFLOW . 
/IGNORE UNSERFLOW PLIP FLOP 

















Sw2 2 ERROR WALT OlaLia vV2O3 6eAPRe72 41107 PAGE 28 
SETUP YO STARY THE FPP 
1990 0523 STFPP, RYed JENTERED WITH A JMS 
49091 4777/4 ~- JMS WORD /ALLOW TTY INPUT 
1982 6552 FPICL JCLEAR THE FPPaid 
1283 3983 DCA EPM /CLEAR EPM CONTROL REGISTER 
1984 3776! OCA CSTATE /CLEAR PROGRAM STATE GENERATOR 
1985 1902 a) COMREG /GET THE COMMAND REGISTER 
12396 6533 FPCOM WSET THE FPPei2 eopeane REGISTER 
1287 08375 AND (7 /EXTRACT FYELD BITS 
1948 3972 OCGA PAPT /SET PROGRAM AORS PIJELS BITS 
{gil 1374 TAD (TEST /JGEY ADDRESS OF FRO INSTRUCTIONS 
toi2 3773! OCA APT o4 /ASET FPG IN PROGRAM APT 
14943 1372 TAD (Pxg /GET INDEX POINTER 
4014 3773! DCA APT +2 “SET INDEX POINTER IN Apt 
4015 1372 TAO (OPERND /GET ADDRESS OF OPRRANS TABLE 
1916 3767! DCA APTo3 /SET BASE ADDRESS {N APT 
1017 1366 TA0 (B43 /GET FIELO til 
ig2o 63765! DCA AP /SEY APT FYELO BiTS 
4921 3764/ DCA APt+4 /CLEAR OP AQORESS IN APT 
4922 1763! TAD AS@wo /GET ASCII! INPOT 
1923 1362 Tad (08 /SUBTRACYT ASET!? "Ee 
1924 7682 SNA CLA /START IN BPM MOBE ? 
4925 4761! JMS STEPM /YES » SET EPM MODE 
1926 61760! TAD OCfWo /GET TTY Hid 
1g27 748g SNA AIS 3? gega ? 
4930 1365 TAD (APT /YES « GET ae OF PROGRAM APT 
4931 3737! OGA AAPT /SET aP? afior 
4032 3756! DCA STEPSW /CLEAR SINGLE state switce 
4033 1757! TAD AAPT 
4034 3242 DCA APPSAV /SAVE APT LOORESS 
1235 7248 STA ; /SET PROGRAM RUN FF 
4236 3243 OCA FPPRUN 
1937 3004 DCA PSfaT /CGLEAR STAPUS ft: 
194g 4755/ JMS TITLE /SYNC THE © REGISTERS 
10941 5600 JMP { STFPP EXIT 
4042 98800 APTSAV, 2 
4043 2000 FPPRUN, @ 
1044 2992 PSTEPM, 2 
1245 9g02 FSTEPM, @ 





ane Se sae ssinimaince eens a So Se 


Swe 


12346 
4047 
1252 
1251 
1852 
1053 
1054 
1035 
12536 
4057 
1262 
4061 


1065 
4966 


1117 


4754! 
7642 
5254 
1353 
4752! 
0200 
4757! 
3273 
1244 
3223 
1245 
6567 
4563 


6561 


7288 
1757! 


6555 
7619 
5274 
4754/ 
2R24 
4759! 
4561 
3839 
1232 
O37§ 
3266 


ERROR HALT 


INIT, 


ENINIT, 


INIT, 


OIALI@ VOSS 


/ FPP FLOWS 


JMS 
SKP CLA 
JMP 
TAD 
JMS 
ERROR 
TAD 
DCA 
TAD 
DCA 
TAD 
LSHFT 
ENTER 
FMAINT 
CLA 
TAD 


FPST 
SKP CLA 


MSTATE 


ws 
CINITTe4 
ERR 
2880 
AAPT 
PAPT#4 
PSTEPM 
EPM 
FSTEPM 


AAPT 


o4 
TYP 


KEYCK 


AMSH 
AMSW 


PRAC 
AMaW 


7 
XADR 
AMSW 


(7 
PBASE 


CKO 
CKOP 





lll, 


6a2dPRa72 {1127 


/CHECK STATES 

/TIME STATE ERROR 

7TIME STATE GENERATER {5S OK 
/GET PC FOR ERROR TYPEOUT 


/ STATE ERROR CORE 

/GEY ADDRESS OF APT 

/SEY APY COMPARE ABDRESS 
/GET PROGRAM START WORD 
/SET PROGRAM EPM STATUS 
/GET FPP SPaRT WORD 
/LOAD FPP STATUS WORD 
/TYPE ENTER INITIATE 
/SET FPP MAINT MODE 


/GET ADDRESS OF APT 


/START FPP . 
/FPP DID NOT START 


/PPP START ERROR 

/TYPE ERROR MESSAGE 
/WAST FOR REYBOARD INPUT 
/OUTBRK USING ADRS 

4MB TO AMSW 

/AND PIELO atts 


/FIELO BITS OF ree 
/YOS@GET PYELD Btfs 


/FIELO BITS OF INDEX POINTER 
/GET FIELO BIfs 


/FIELO BITS OF P@ ADOR 
AINCREMENT ADRS 

/CHECK APT 

/CLEAR CHEEK O FLAG 

/CLEAR CHECK OP ADOR FLAG 





PAGE 28«4¢ 


/ FPP FLOWS 


1122 
1121 
1122 
1128 
1124 
1125 
1126 
1127 
1130 
1132 
4132 
1133 





4562 
4561 
S31 
4343 
2032 
4555 
4575 
4542 
9922 
10714 
3867 
B334 


4562 
4561 
3077 


DIAL1@ 


INIT4, 


INIT2, 


VO8S 


FSTEP 
CETAPT 
OCA 
LOADO} 


INCAPT 
CAPT 
LOADOP) 


TAD 
DCA 
JMP 


FSTEP 
GETAPT 
OCA 
INCAPT 
CAPT 
JMP 


PAGE 


6oAPReF2 


ALSW 
AREG 


OREG 


OPADRet{ 
PPPCet 
IN¢T2 


XZADRo4 


INITS 


44187 PAGE 2% 


ASTEP TO STATE 4 
AQUTBRK USING ADRS 
MB TQ ALSW 

/& TO 0 


JING ADRS 
/CHECK APT ADDRESS 
49 TO OP ABOR 


/QP ADDR Te FPE 
/GO TO STATE 2 


/STEP TO STATE 2 
/QUTBRK USING ADRS 
/MB TO X® ADDR 
ZINC AORS 
/GHECK APT ADORESS 
/G0 TO STATE 3 


in 


Be tee antes tet 


ko adreanutnon tibia, eben sneennttieemnittne a at 





i ‘ 
} 
r 

\ 


/ Fpe FLOWS 


1232 
L271 
1282 
1283 
1224 
1225 


1206 
1207 
1248 
1241 
1212 


1213 
1214 
1215 
1216 
1247 
1228 
4221 
1222 
4223 
1224 


1225 
1226 
1227 
1238 
4231 


1232 
1238 
1234 
1235 
1236 


4562 
4561 
$275 
4555 
4555 
4575 


4562 
4564 
3052 
4555 
4575 


4562 
4561 
3832 
4555 
4539 
5247 
4555 
4575 
47971 
4527 


4562 
4564 
S832 
4555 
4595 


4562 
4561 
$833 
4555 
4575 


DJAL2 


INTTS3, 


INIT4, 


INITS, 


INS TSO, 


INI TS4, 


VO23S 


FSTEP 
GETAPT 
DCA 
INCAPT 
INCAPT 
CAPT 


FSTEP 
GETAPT 
DCA 
INCAPT 
CAPT 


FSTEP 
CETAPT 
DCA 
INCAPT 
SEPM 
JMP 
INGAPT 
CAPT 
JMS 
SEPMEN 
PSTEP 
eters 


OC 
INCAPT 
CAPT 


PSTEP 
GETAPT 
DCA 
INCAPT 
CAPT 


6eAPRa72 


PBASE+t 


ACEXP 


AMSW 


INI TS 


S$f 


ALSWi 


ALSWe 


Millie, 


11197 PAGE 22 


/STEP TO STATE 3 
/OUTBRK USING ADRS 
/MB YO P@ ADDR 
/NG ADRS 

ZINC ADRS 

/CHECK APT ADDRESS 


/STEP TO STATE 4 
/QUTBRK USING ADRS 
/SAVE FAC BXPONENT 
/INC ADRS 

/CHECK APT 


/STEP TO STATE 5 
/QUTBRK USING ADRS 
7MB TO AMSW 

/INC ADRS 

/EPM? 

JNO @ GO TO STATE 4 
AYES » JING AORS 
/GHECK APT ADDRESS 
/4 TO SPECTAL STife 
/4 TO EPM PNABLE 


/STEP TO SPECIAL STATE o 
JOUTBRK USING ADRS 

“Me a a 4 

fING 

TCHECK et AGORESS 


/STEP TO SPECIAL STATE 3 
/OUTBRK USING ADRS 

/MB TO ALS 2 

INC AORS 

/CHECK APT ADDRESS 














4 FPP FLOWS 


1237 
1242 
1241 
1242 
1243 
1244 
1245 
1246 


1247 
1252 
1234 
1252 
1258 
1254 
1255 
1236 


1257 
12462 





4562 
4561 
3234 
4565 
4565 
4565 
4575 
4776! 


45362 
4575 
4364 
S834 
4543 
8832 
4346 
8922 


4542 
3e61 


OUALL2 VOGS 


INIT52, FSTEP 


INTT6, 


INENB, 


GETAPT 
DCA 
DECAPT 
DECAPT 
DECAPT 
CAPT 
JMS 


PSTEP 
CAPT 
GETAPT 
OCA 
LOAOOs 


LOADAGI 


MOVEX 
JMP 


6=APRe72 


ALSWS 


ALSW 
AREG 


OREG 


FETCH 


14187 PAGE 28 


/STEP TQ SPECIAL STATE 2 
/QUTBRK USING ADRS 

/MB TQ ALSS 

/DEC ADRS 

/ODEC ADRS 

ZQEC ADRS 

/CHECK APT ADORESS 

40 70 SPECIAL STATE 


/STEP TO STATE 6 
/CHECK APT ADDRESS 
/QUTBRK USING ADRS 
/MB TO ALSW 

fk-70 Q 


40 TO FAC PRACTYION 


/SET PROGRIM INDEX REGISTERS 
RETURN TO CONTROL PROGRAM 


Chae 
la * 
ar 


a ne mee 





hE eedertone taal AKL Sam 


f g 
t 
iv 
3 


/ FPP FLOWS 


1264 
1262 
1263 
1264 
1265 
1266 
1267 
12792 


1274 
1272 
1293 
1274 
1275 
1276 
1277 


4563 
4574 
4572 
6567 
3775! 
3297 
3774) 
4535 


4562 
4579 
4574 
4537 
3285 
4552 
1115 
4522 
1052 
45241 
4577 
1205 
8373 
748% 
57721 


4562 


4576 
4545 
2022 
4576 


DYAL42 


FETCH, 


PECHG, 


FECH4, 


V2Z33 


ENTER 
CLRA 
CLRB 
LSHFT 
OCA 
DCA 
DCA 


REPMEN 


FSTEP 
CLRO 
CLRMOQ 
GETPC 
DCA 
INCPC 


Tad 


LOQADB) 


APBOQ 


LQAQDB} 


APBO 


6eAPRa72 


SHREG 
CARYIN 
MDFLAG 


PIR 
C2? 
ACEXP 
PIR 
(600 
FEND 
(9490 
PEGHS 
sEfSTS 


FLAGY 
FEGHS4 


PIR 


PIR 
(497 


(7 
AREG 


OREG 


11107 PAGE 24 


/TYPE ENTER FETCH 

/CLEAR A REG 

/CLEAR 8 REG 

/2ERO FPP SHIF? RECISTER 
/ZERO PROGRAM SHIFT REGISTER 
/CLEAR CARRY IN FP 

/GLEAR MULT OR DEY FLAG 

/@ TO EPM PNABLE 


/STEP TO FETCH STATE @ 


/CLEAR MQ 
/QUTBRK USING FP 

/STORE IN PROGRAM INST REG 
ZINCREMENT PROGRAM FRC 
/SET A REG & 28 


/SET B REG & FAC EXPONENT 
/STORE LSW AND EXTEND SGN 
7A MINUS 8 TO 0 REG 

/GET FPP INSTRUCTION 
/EXTRACT BYTS 3 ANB 4 
/SPECIAL INSTRUCTION? 
/YES*END OF FETCH 


/OOUBLE WORD {Ns} 
/NO=GO TO STATE 
/SET STATE 3 


/SET FLAGS FOR DOUBLE WORD INST, 


/GET INSTRUCTION 
/SAVE BIT PIRES IN PHE LINK 


/GET INSTRUCTION 

/GET BITS Seis 

/BIT 3a 49 

/YES@EXTRAGT BITS 9ed4 

/FIR 5e44 OR 9eif fO ALSW 

/MOVE A TO B FOR ABD (AeA 70 0) 


JA PLUS B 70 0 REG 
QO TO 8 


/A PLUS B TO OREG 











‘ 


/ FRPP FLOWS 


1337 
1349 
1344 
1342 
1343 
1344 
1345 
1346 
1347 
1382 
13531 
1352 
1383 
1354 
4335 





4562 
4547 
2022 
4545 
2274 
4576 
4542 
922 
4905 
0363 
7649 
5762! 
6556 
7740 
5762! 


OVALLa 


FECH2, 


VOaS 6eAPRev2 


FSTEP 
LOADA} OREG 


LOADBj PBASE 


APBO 
LOADOP}; OREG 
TAD PIR 
ANO (462 
SZza CLA 

JMP FECH24 
FPRST 

SPA CLA 

JMP FECH24 
NPAGE 


JMP I ¢,62800987680 


PAGE 


44107 PAGE 25 


/STEP TO STATE 2 
70 TO A 


/P@ ADOR FO B 


/A PLUS B f0 0 
70 TO OP ABOR 


GET INSTRUCTION 
/EXTRACY BIT 3 
/BIT 3 a 1? 
/YESeINC OP ADOR 
/GET FPP SPaTUS | 
ADOUBLE PRECISION? 
/YES@INC Q* adBR 


ie Se ec nee yee ee ee = 


Se wees meee 


E 
t : 
x 
- 


/ FPP FLOWS 


1492 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1440 
4441 
1442 
1413 
1494 
1445 
1446 
4447 
1420 


1421 
1422 
1423 
1424 
£425 
1426 
1427 
1432 
1432 
1432 
£433 
1434 
1435 


1436 
1437 
4440 
1441 
1442 
1443 
1444 


O1alia 


FECHO4, 


FECHS, 


FECHS4, 


FECH4, 


V82S 


TAD 
AND 
TAD 
SNA 
JMP 
TAD 
SNA 
JMP 
TAD 


SZA CLA 


JMP 
}NCOP 
TAD 
ANO 


SNA CLa 


JMP 
JMP 


PSTEP 


LOQADBI 


FSTEP 
T 


6weAPRaF2 


PIR 
(7082 
(=3082 


FECH24 
(efaae 


FEGH24 
(e3O00 


,*2 


PIR 
(400 


FEND 
FECHS 


(7 
MQMSW 


FLAGS 


PIR 
(78 


XBADR 


FLAGS 
: +3 


MOQLSW 
FLAGS 


-_ 


141187 PAGE 26 


/GET INSTRUCTION 
ZEXTRACT OP CODE 


/FOTV? 
/YES#JNC OF ADBR 


/FMUL? 
/YESeINC QP ADBR 


/FMULM? 
/NOeDO NOY INC OP ADOR 
JING OP AODGR 

/GET JNSTRUCTION 
/EXTRACT BIT 3 

/BlT 3 a @? 

JEND QF FEPCH 

/NO = GO TO STATE 8 


/STEP TO STATE 3 
/OUTBRK USING OP ABOR — 
/EXTRACT BITS 9u44 
/MB9e4i TO MOMSW 


/GLEAR FLAS i 
/GET INSTRUCTION 
EXTRACT BITS 608 


/FIR 698 TO ALSW 2 @ TO AM&W 
7X8 ADDR FO B 


/STEP To STATE 4 
/GET DOUBLE WORD FLAG 
/QOUBLE WORD INSTRUCTION 2 
/YES © NO OUTBREAK 

/QUTBRK USEING OP ABOR 

/MB TO MOLSW 
/GLEAR DOVBLE WORD FLAG 

















/ FpP FLOWS 


1445 
1446 
1447 
1452 
1451 
1452 
1455 
1454 
1435 
1436 
4457 
1462 
4464 
1462 
1468 
1464 
1465 
1466 


4576 
4542 
2822 
4572 
4025 
370 
7196 
7006 
7826 
7479 
3262 
47674 


Bp22 
4576 
453g 
5324 
4765! 


4562 
4545 
222 
4547 
AW22 
4576 
4764! 


4562 
4547 
0844 


OTALd2 


V9as 


FECHS2, APSO 


FECHS, 


FECH6, 


PECH4OO, 


FECH?, 


LOADOP| 


CLRO 
TAD 
AND 


CLL RTL 


RTL 
RTL 


SZ. SNA 


JMP 
JMS 
JMP 
RAR 


SdA CLA 


JMP 
JMS 
JMP 


FSTEP 
tNOX 
TAD 
ANO 


SNA CLA 


JMP 


FSTEP 
GETX 
DCA 
OCA 
LOADB} 


APBO 


JMP 
LOADB) 


APBO 
SEPM 
JMP 
JMS 


FSTEP 
LQADB} 


LQADAI 


APBO 
JMS 


FSTEP 
LOADAI 


6uAPReI2 


OREG 


PIR 
(170 


+3 
SE?STS 
FECH6 


2%3 
SETST6 
FEGH? 


PIR 
(78 


FECHSe2 


AL SW 
AMSW 
AREG 


COMREG 


os 
OREG 


FECH? 
SSf 


OREG 
OREG 


RSf 


MQREG 


4i!a7 PAGE 27 


fA PLUS B TO 0 
/Q TO OP ADDR 


/@ 70 0 REC 
/GET JNSTRUCTION 
/EXTRACT BITS 58 


/FIRS ® @ AND FIR 608 NE Q? 


/YES#SETUP FOR STATE 6 
/GO TO MAJBR STATE 6 


AFIR S#8 8 8? 


/YES@SETUP FOR MAJOR STATE 7 
GQ TO STATE 7 


/STEP TO STATE 5 


AGET INSTRUCTION 
/EXTRACT BITS 608 
AFIR60e8 « 87 
/YES@SETUP FOR Sta?E 7 


/STEP TO SPATE 6 

/OUTBRK USING OP ABOR 

MB TO ALSW 

/®@ TO AMSW 

/A 70 B FOR ADS Gada TO 0) 


4A PLUS B PO 0 
/GET COMMAND REG{STER 
peecenane POINT MOBE? 


/ 
/O TO 8 


7A PLUS TO 0 

/IN EPM MOSE? 

/NO GO TO STATE 9 
/4 TO SPECIAL STATE 


/STEP TO SPECIAL STATE @ 
/O0 TO B FOR aDB SINCE { CANT 


/Q TO A 


/k*B HERE & AA $N THE FLOWS 
/@ TO SPECIAL STATE 


/STEP TO SfATE 7 
/MO TO A 
f Ms 


} 
f 


os 
SD 


3 


/ Fpo FLOWS 


1527 
1532 
1531 
1532 
1538 
1534 
1535 
1536 
1537 
1542 
1541 
1542 
1543 
1544 
1545 


1562 
1563 
1564 
1565 
1566 
1567 
1572 
1574 


4545 
2922 
1225 
2363 
7642 
5762! 
4557 
3Q34 
1905 
C373 
3230 
4545 
922 
4552 
5762! 


1682 
0200 
7525 
7546 
6257 
6241 
0172 
0070 
0726 
8287 
1621 
0480 
5080 
7080 
1602 


OJALis V2as 
LOADB} 


TAD 

ANO 

SZa CLA 
JMP 
GETPC 
OCA 

TAD 

AND 

DCA 
LOADBI 


TNCPC 
JMP 


PAGE 


&eaPRe%e2 
OREG 


PIR 
(282 


FECH72 


ALSW 
PIR 
(7 
AMSW 
OREG 


FECH72 


eile, 


41187 PAGE 27ef 
70 T0 8 


/GET JNSTRUCTION 
EXTRACT BIT 4 
/FIR4e4 
/YESeGO TO STATE 7=2 
/QUTBRK USING FRC 
/MB 70 ALSW 

/GET INSTRUCTION. 
/EXTRACT BITS 9ai4 
/FYR Peis TO AMSW 

/Q TO B 


JING FPC 


























/ FPP FLOWS 


1600 
1681 
1692 
1643 
1604 
1605 
1606 
1687 
1642 
1644 
1642 
1643 
1644 


1643 
1644 
1645 
1646 
1647 
1659 
4654 
1652 
16533 
1654 
1655 
1656 
1657 


ae 


4576 
4542 
9922 
1222 
7740 
5221 
14805 
9397 
1376 
7459 
5220 
1377 
7459 
52208 
1376 
7652 
4554 
5222 


7300 
3775/ 
3794! 
$793! 
3O8a 


OTAL12 


V283 


FECH72, APBO 


FECHI3, 
FEND, 


EXEC, 


PROCES, 


SPEC, 


TRAPED, 
TRAPC, 


LOADOP) 


TAD 

SPA CLA 
JMP 

TAD 

AND 

TAD 

SNA 

JMP 

TAD 

SNA 

JMP 

TAO 

SNA CLA 
TNCOP 
JMP 


CLA CLL 
0 


S24 CLA 


OCA 
LOADO! 
LOADOPY 


INCPC 
JMP 


6eAPRat2 


OREG 
COMREG 
FEND 
PIR 
(7028 
(#3002 


FEGH73 
(91200 


FECHT7S 
(3090 


EXec 


AR} TH 
PIR 

(7808 
(92000 
SPEC? 


J XN 


ALSW 
PIR 


AMSW 
AREG 


OREG 


EXIT 


14127 PAGE 28 


JA PLUS 8 70 0 
/0 TO OP ABOR 


/GET COMMAND REG 
70, P, MODE ? ; 
JYES e END OF FETCH 
/GET INSTRUCTION 
EXTRACT OP COPE 


sFOIVE . 
/YESe ING 0? ADOR 


/FMUL? | 
VYES@ING O® ADBR 


/FMULM? | 
/YESe$NG OP ADBR 
/GO TO EXECUTE 


/EXECUTE SKIP CHAIN 
/CLEAR FLAGS AND TEMP LOCATIONS 


/GET ee 
ZEXTRACT BITS Seg 


ZARITHMETIO INSTRUETIONS 
/PROCESS SPECIAL INSTRUCTIONS 
/GET OP COME . 


/WHICH SPECTAL PURnAT 
/SPECTAL FORMAT 
/IXN? 


/YES 

/ENTER TRAPPED INSTRUCTIONS 
/STEP To SPATE 4 

/OUTBRK USING FPE 

/MB TO ALSW 

/GET JNSTRUCTION REG 
/EXTRACY BITS 9944 

/FIR9eit TO AMSW 

/A 70 0 


/0 TO OP ABOR 


ZINC FPC 
/GO TO EXxIf 


LO oo \ 
f \ 
: ' 

; 
: 
f 


x. 
N 





-_ 


/ FRPP FLOWS 


1662 
1641 
1662 
1663 
1664 
1665 
1666 
1667 
1670 


1674 
1672 
1675 
1674 
1675 
1676 
1677 
4790 


DIALs2 


7320 SPEC2, 
1225 
2344 
74590 
5763! 
7424 
72006 
7422 
5315 


4362 SPEC2i, 
7740 
5277 
4577 
7008 
5741! 
1095 
0369 


VBS 


CLA Cll 
TAD 
ANO 
SNA 
JMP 
CLL RAL 


JMP 


CLL RAR 


bw APRe72 


PIR 
(7778 


SPECS 
SPEC22 


(o1490 


TT 


FETCH 
PIR 
(192 


Ti 
ciNaeree 


44127 PAGE 29 


/SPECITAL FORMAT 2 FENSTRUCTIONS 
/GET INSTRUCTIONS 


/SPEC FMAT 2 OR 3 
/SPEC FMAT 3 


/OP CODE @ oR i 
/QP CODE @ 


/NOP? 

/NO 

/YES=FRACING PROGRAM? 
/YESeTYPE NOP 

/GQO TO FETGH 

/GET INSTRUCTION 
JEXTRACT EXTENSION 


/RIGHT JUSTIFY 
/NEGATE 


/GEY ADDRESS OF ENSTRUETION TABLE 
/FIND INSTRUCTION 


/GET INSTRUCTION aBDRESS 














4 FpP FLOWS 


1715 
1716 
1717 
1722 
1721 
1722 
4723 
1724 
1725 
4726 





7412 
7042 
7042 
7044 
7004 
7452 
5756! 
7001 
7439 
57551 
7001 
7452 
5754! 
7004 
702 
745g 
5783! 
1352 
7459 
5734! 


2682 
2732 
0727 
2726 
5282 
7082 
2000 


DYALLS Vaa3 


SPEC22, CLL 
PIR 
RTR 
CTA 
rac 
SNA 
JMP 
Tac 
SNA 
JMP 
rac 
SNA 
JMP 
TAC 
Tac 
SNA 
JMP 
Yad 
SNA 
JMP 
Tac 
SNA 
JMP 
JMP 


PAGE 


RTR 


CLA 


6edAPRe72 


FALN 


FATX 


FXTA 


FSTE 
(3 


FLOX 


ADOXx 
SPEC2185 


14127 PAGE 38 


/ALIGN INSPRUCTION 
JATX JNSTRUCTION 


/XTA JNSTRUCTION 


/START E 
/L0X INSTRUCTION 


/ADDX INSTRUC \ 
Ae NSTRUCTION 


Aisamlanatterthiniwnsnendinn “etiam meh 


a ae bee picemtiat 


jam, 


4 


/ FpP FLOWS 


2a79 
2gAt 
2a02 
2023 
2904 
2905 
2006 
2007 
2910 
2011 
2042 
2043 
2044 
2945 
2046 
2047 
2020 
2924 
2022 
2923 
2024 
2028 
2826 
2927 


2930 
20314 
2932 
2333 
2034 
2035 
2036 
2237 
2942 
2041 
2042 
2243 
2044 
2045 
2046 
2047 
2250 
2031 


1005 
#377 
7044 
7452 
5776! 
7084 
7452 
5775/4 
7004 
7450 
5774! 
7001 
7489 
5793 
7804 
748) 
5772) 
7004 
745g 
8774! 


579g! 
5767! 


1985 
8366 
7186 
7606 
7049 
3082 
12982 
7004 
7206 
7886 
1365 
3804 
2924 
2082 
5244 
1484 
SOB 
3484 


DI ALL2 


SPECS, 


ARITH, 


V28$ 


TAD 
AND 
CYA 
SNA 
JMP 
TAC 
SNA 
JMP 
TAC 
SNA 
JMP 
TAC 
SNA 
JMP 
Tac 
SNA 
JMP 
TAC 
SNA 
JMP 
JAC 
SNA 
JMP 
JMP 


TAQ 


CLA RTL 


JMP 1 


6eAPReF2 


PIR 
(7 


EX{T 
FPAUSE 
FCLA 
FNEG 
FNORM 
FS?rF 


FSfO 
JAE 


PIR 
(7808 


Ti 
COMREG 


(INSBe4 


lin, 


14127 PAGE 3f 


/SPECIAL FORMAT 8 
ZEXTRACT BITS 9edt 
/NEGATE 


EXIT 
/PAUSE 
APCLA 
/FNEG 
/FNORM 
/START F 


/START 0 
AAG 


/GET INSTRUCTION 
/EXTRACT OF GODE 
/RIGHT JUSTIFY 


NEGATE s4 

/SAVE MINUS OP CODE 

/GEY COMMAND REG 

/0,P, BIT #O LINK 

/MOVE O,P, BI? To ice 

/GET ADDR OF FLOATING PT, 
JOR D,P, INSTRUCTION TABLE 


ZINC ADOR 

ZING INSTRUCTION 

/NOT THIS YNSewTRY AGAIN 
/GET ADDR OF INST 


G0 TO INSTRUCTION 























/ FPP FLOWS 


20582 
2058 
2054 
2055 
2056 
2957 
2862 
2061 
2062 
2068 
2064 
2865 





4563 
4527 
4562 
1982 
7789 
4537 
4547 
022 
4572 
4027 
390g 
4922 
7702 
7949 
3764! 
4576 
1999 
7719 


OTaALie 


SEP, 


SEPL4d, 


VO8S 


ENTER 
SEPMEN 
FSTEP 
TAO 

SM4 CLA 
NORM 
LOa0a) 


CLRB 


6eAPRe72 


COMREG 
OREG 
OEXT 
Td 
OMSW 


FLAGS 
Ti 


FLAGS 


104 
OMSW 


163 


CKMEM 
COMREG 


bstar 


EX{ TSW 
DEPEND 


44127 PAGE 32 


/TYPE ENTER DEPOSIF 
/4 TO EPM FNABLE 
/STEP TO STATEGL 
/GET COMMAND REG 
/FIXED PNT NOS4? 
/CHECK AND NORMAL IBE 
JO TO A 


/2ERO To 8 


7SAVE 0 EX? FOR ROUNDING 
/CHECK FOR OVERFLOW? 

wND e CLEAR FLAG 

/YES » SET FLAG 

/STORE FLAG 


/GET EXT REG FOR ROUNDING 
/CHECK GARRY IN 
TINCREMEN? 0 REG 

/CHECK FOR OVERFLOW 
/OVERFLOW? 

/NO = BYPASS 0 CHEEK 

/YES @ CHEEK OVERFLOW 


/OVERFLOW 
JNO OVERFLOW 

/BYPASS MAJOR STATE f2 
/GET COMMAND REG 
Adee PT, NOS,? 


1GET STATUS WORD 
/SAVE OTHER BITS 
/SET FRAC OVERFLOW 


SET EXIT SWITeH 
/END OF DEROS{T 


oo 


OF 





for clei acta Ei ae, 


te jaca die acer us hes ap ett ame 





sili, 
pam, | : 5 
/ FpP FLOWS VrALi2 Veeas Gr APRia72 44107 PAGE 33 
2417 4562 NEP12, FSTEP /STEP TO S¥ATE 12 
2420 1922 TAD OMSW /420L AND {2e2sSWIFT 
2424 7110 CLL RAR /2 TO 8g 
2422 3036 OCA. BMSW 
2123 1023 TAD OLSW 
2424 7040 RAR 
21425 3037 DCA BLSW 
2426 4543 LOADO} BREG sB T0 0 
2427 2836 
2430 2757! 1$2 SHREG /INC SHFT ENTR 
2431 7029 NOP ; 
21432 4520 CKMEM, TOMEM /RESULTS TO MEMORY? 
2433 5336 JMP #3 
2234 4554 INCSY /NO © INCREMENT MAJOR STATE 
2435 5756! JMP DEP14 /BYPASS STATE {3 
21436 4562 DEP13, FSTEP /STEP TO STATE 18 
2137 1823 Tad OLSW /OLSW 70 MEMORY 
2140 3107 DCA LMEM 
21444 4564 OECOP 
2442 4539 SEPM /EPM MODE? - 
2143 5756! JMP OERi4 /NOeGO TO STATE 14 
21444 5755! JMP DEPMS 
21585 2200 
2136 2223 
2187 9724 
21460 2445 
2461. 6725 
2162 f2e¢ 
2463 7577 
21464 08726 
2165 7276 
24466 7890 
2167 5927 
2470 5057 
2171 5042 
2172 3192 
2473 5266 
21474 «451444 
2175 3122 
2176 2427 
2177 2007 
2200 PAGE 














/ Foe Flows 


223g 
224 
2282 
2203 
2284 


2285 
2286 
2207 
2210 


2241 
2242 
2213 


— «@et4 


2245 





47774 
4554 
4554 
4554 
4554 


4562 
1026 
3442 
4564 


4562 
1025 
3441 
4564 


4362 


NYALG2 


DEPMS, 


DEPL32, 


DEPIS3i, 


DEPLS32, 
T 


VO8S 


JMS 

INCOP 
INCOP 
INCOP 
INCOP 


FSTEP 
TAD 
DCA 
DECOP 


PSTEP 
T 


6eiAPRa72 


SS? 


OLSWS 
LMEMS 


OLSWe 
LMEM2 


OLSW4 
LMEM4 


RSf 


41127 PAGE 34 


/4 TO SPECIAL STATE 
/iNC QP ADSRESS 


/STEP TO SPECIAL STATE @ 
/OLSWS TO MEMORY 


/OEC OP ADSRESS 


/STEP TO SPECIAL STATE 4 
70 LSW2 TO MEMORY 


/DEC QP AQORESS 


/STEP TO SPECIAL SPATE 2 
/OLSWA TO MEMORY 


/@ TO SPECYAL STAfe 


= 


a 
\ Ss. wy 


am 


/ Fee FLOWS 


2223 
2224 
2225 
2226 
2227 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2260 


4562 
4529 
7440 
5234 
4222 
3126 
4566 
4564 
5236 
4546 
2922 
1045 


OLALd@ 


NEPLA, 


DEPL44, 


ACNEZ, 


V223 


FSTEP 
TOMEM 
SKP 

JM? 

TAD 

DCA 
CMEMF 
DECOP 
JMP 
LOADAC) 


TAD 
STORB 


SOEZ 


SKP CLA 
STA 
DCA 
REPMEN 


TAD 
SNA CLA 
JMP 

TAD 
STORA 
TAD 

AND 

TAD 


SeaPRa72 


OMSW 
MMEM 


#3 
OREG 
MOLSW 


FLAGS 
MDFLAG 


OEP144 
ACEXP 


PIR 
(7890 
(03000 


SZA CLA 


JMP 
AMBO 
SKP 
APBO 
LOADBI 


TAQ 
STORA 


TAD 
SNA CLA 
JMP 
CLRO 
JMP 


APBO 
TAD 

SMA CLA 
JMP 

DCA 

JMP 


; o3 


OREG 
SHREG 
FLAGS 
ACNE2 
ACNEZ#{ 


COMREG 


DEP15 
EXITSW 
DEPEND 


44107 PAGE 35 


/STEP TO STATE 14 
ARESULTS TO MEMORY? 
AYES 

/NO 

/OMSW TO MEMORY 


/CHECK MEMORY FRACTION 
/DEC OP ADBR 

/BYPASS 6 0 FAC 

/0 TO FAC PRACTION 


/MQLSW TO BLSW 
/SIGN EXTEND TO BMSW 
/QO s @ ? 


/NO 

/YES » SET ZERO f0 
/FAC FF 

/®@ TO EPM ENABLE _ 
/GET MULT OR OLV FLAG 
/MULT OR DYV? 

/NO ~ GO To SPATE [404 
/FAG EXP TO ALSW_ 
/SIGN EXTEND fO0 AMSW 
/GET INSTRUCTION REG 
JEXTRAGT OP CODE 


nt 
AYES e A MINUS B f0 0 


/A PLUS B TO Q 
/0O TO 8 


/SHFT CNTR fo ALSW 
/SIGN EXTEND TO AMSH 
/BERO To FAC FP SEP ? 


/NQ ADD A AND B 
/YES @ OB TOO 
/Q0 NOT aOB A PLUS B 


/A PLUS B 70 0 
/GET COMMAND REG 
/FIXED PNTS NOS,? 
/NO . 
/GLEAR EX]? SWITCH 
/AEND OF DEPOSIT 











/ FPP FLOWS 


2304 
2302 
2393 
2304 
2305 
2306 
2387 
2310 
2344 
2342 
2343 
2344 
2345 
2316 
2347 
2320 
2324 
2322 
2323 
2324 
2325 





4562 
4529 
7412 
53141 
1923 
3425 
4567 
5313 
1923 
3252 
4545 
0822 
7330 
3031 
3930 
14022 
77080 
8766! 
4576 
1922 
7789 
5341 
1004 
9365 
1364 


DLALt2 


DEPAS, 


Vd8S 


FSTEP 
TOMEM 
SKP 
JMP 
TAD 
OCA 
CMEME 
JMP 
TAO 
DCA 


LQADB} 
CLA STL 


OCA 
DCA 
FAO 


SMA CLA 


JMP 
APBO 
TAO 


SMA CLA 


JMP 
TAO 
AND 
TAD 
OCA 
TAD 
RAL 


SMA CLA 


CMA 
DCA 
CMA 
DGA 

JMP 


PAGE 


6eaPRa72 


+5 
OLSW 
EMEM 


hd 
OLSW 
ACEXP 
OREG 


RAR 
ALSW 
AMSW 
OMSW 
CPOs 
OMSW 
ENGL5 
PSTaT 
(7937 


(42 
PSTaT 


COMREG 


IGNFL 


EX{iTSW 
DEPEND 


11187 PAGE 36 


/STEP TO SYATE 15 
/RESULTS TO MEMORY? 
AYES 

NO - BYPASS [NBRK 
/OLSW TO MEM 

/CHECK MEMORY EXPONENT 
/OLSW To Fac EXP 


40 70 8 
/48@008 TO A 


JS OLT @ 

/NO 

/YES e A PLUS B fo 0 
AIS OLT @ 

JNO = OK 

/GET STATUS WORD 
/SAVE OTHER BITS 

/SET UNDERFLOW 

/GET COMMAND REGISTER 


/FTRAP ON UNDERPLOW 


? | 
/NO «© SET YGNORE UNODFRFLOW FF 


/SET OR CLEAR EXE? SWI?cH 
/END OF DEPOSIT 


a 


rs a ae 


na On OE een enone 





~ 


/ FPP FLOWS 


2439 
2404 
2492 
2403 
2404 
2405 
2406 
2487 
2442 
2444 
2442 
2443 
2444 
2445 
2446 
2449 
2429 
2424 
2422 
2423 
2424 
2425 
2426 


4577 
4523 
7642 
5297 
1922 
7790 
5244 
1004 
2397 
1376 
3904 
7949 
3775/ 
$556 
£374 
7B44 
1004 
7642 
4773! 
4775! 
7649 
5227 
5790/1 


DpaAus2 


F955, 


DEPEND, 


VOSS GeAPRe72 


AMBO 

SOE2 

SKP CLA 

JMP 144 
TAD OMSW 
SMA CLA 

JMP 1*6 
TAD PSTAT 
AND (7637 
TAD (190 
OCA PSfaT 
CMA 
DCA EX{TSW 
FPRST 

AND (740 
CyA . 
TAD PSTAT 
SZA CLA 

ums STERR 
Tad EXETSW 
SZA CLA 

JMP a 
JMP FEF CH 








fill, 


11127 PAGE 37 


4A MINUS B TO 9 


/1S 0 LEO 8 

NO . 

/YES @ SET OVERFLOW 

SAVE ALL BITS EXCEPT UNDERFLOW 


/SET OR CLEAR EXtt SWITCH 
/READ FPP STATUS WORD 
/EXTRACT OVERFLOW BITS 


/COMPARE WETH PROGRAM STAPUS 


/STATUS ERROR 








/ FPP FLOWS 


2427 
2430 
2434 
2432 
2433 
2434 
2435 
2436 
2437 
2442 
2444 
2442 
2443 
2444 
2445 
2446 
2447 
2482 
2484 
2482 
2453 
2454 
2435 
2486 
2457 
2462 


2464 
2462 
2463 
2464 
2445 
2466 


2467 
2479 
2474 
2472 
2473 
2494 
2475 
2476 


2477 
2589 
2504 
2582 
2583 





4563 
1771! 
7650 
5267 
3774 / 
4562 
4522 
5244 
4573 
5264 
4554 
4562 
4554 
4530 
5261 
4779! 
4584 
4562 
4584 
4542 
4554 
4562 
4564 
4564 


DJAL12 V28S 


EX{T, 


EXITAU, 
EXIT4uU, 


EX{TiO, 
EXITd4., 
Exitde2, 

0 


EX{T2u, 


: 
TOPECH, 
V 


EXSAV, 


EXITOQ, 


ENTER 
TAD 


SNA CLA 


JMP 
OCA 
FSTEP 
TOMEM 
JMP 
CLRAC 
JMP 
INCOP 
FSTEP 
INCOP 


JMP 


OCA 
TAQ 
AND 


SZA CLA 


JMP 
SEPM 
JMP 
JMS 


FSTEP 


INCAPY 
INCAPT 
INCAPT 


CAPT 


6eAPRa72 


IGNFL 
EXSAV 
IGNFL 
63 
TOPECH 


Exfr2u 
Ss? 


RSf 


FETCH 
FLAGS 
COMREG 
(26 
EX{ite 


EXiTa 
SST 


114187 PAGE $8 


/GET JGNORE TRAP FF 
/UNDERFLOW IGNORED 7? 
/NQ © SAVE aPf - 
/RESET UNDERFLOW FLAG 
/STEP TO SPATE @ 
VANSWER STORED IN FAC? 
/NOQ @ @ TQ MEM 

/CLEAR THE FAC 


/INGREMENT OP ADORESS 
/STEP TO STATE 4 
/INGREMENT QP ADORESS 
/EPM MODE? 


/NQ 

/4 TO SPECYAL STATE 
/ING OP AQBRESS 

ASTEP TO SPEGIAL STATE 
/ING OP ADGBRESS 

/STEP To SPECIAL SPATE 
ZINC OP ADGRESS 

/STEP TO smectat STATE 
/BEC OP ADBRESS 

/DEC OP AOQGRESS 

/DEG OF AQBRESS 

42 7O SPEGCTAL STATE 


ASTEP TO STATE 2 

/ORCREMEN? THE a ROpREaS 
/DECREMENT THE Of ADORESS 
/TRACING PROGRAM? 

/WNDERFLOW ERROR e GO %0O PETCH 


Oo +: 


/JCLEAR ERROR FLAG 

/GET THE COMMAND REGISTER 
/EXTRACT GR? 

/SAVE THE Pac? 

/NO oo 
/EXTEND PRECISION MODE? 
/NO 

AYES @ 4 TO SPEC{AL STATE 
ASTEP TO SPECIAL STATE g 
ZING ADRS 


/CRECK APT ADDRESS 


a, 


pet iS ts wie tis een tn iO ie iad ae taal 


aecmprycntinencmbt ase masini sentences mt Sime te wh Sk a 


/ FpP FLOWS 


2504 
2595 
2526 
2507 
2510 


2544 
2542 
2543 
2544 
2545 


2516 
2547 
2520 
2521 
2522 
2523 


2524 
2525 


4562 
1257 
4764! 
4565 
4575 


4362 
1856 
4764/ 
4565 
4575 


4562 
4255 
4764! 
4565 
4575 
4767! 


4562 
4982 
0365 
7649 
5333 
1984 
4764/ 
4565 
4575 


4562 
1082 
0365 
7640 
5344 
1053 
4764! 
4565 
4575 


DyaLis Veas 


EXIT@i, FSTEP 
Tad 


EX{To2, 


JMS 
DECAPT 
CAPT 


FSTEP 
TAD 
JMS 
DECAPT 
CAPT 


EXITAS, FSTEP 


EX{TO, 


EXIT¢s 


Tad 
JMS 
DECAPT 
CAPT 
JMS 


FSTEP 
TAD 
AND 


SZa CLA 


JMP 
Yad 
JMS 
DECAPT 
CaPT 


FSTEP 
TAD 





BaAPRa72 


ACLSWS 
EX¢OM 


ACLSW2 
EXCOM 


ACLSW1 
EXCGOM 


RSf 


COMREG 
(26 


1s 
ACL SW 
EXCOM 


COMREG 
(26 


ei 
ACMSW 
EXCOM 


11107 


/STEP 


slim, 


PAGE 39 


TO SPECIAL STATE 4 


/GET FAC SWS 
/GHECK FPP DATA 
/QEC ADRS 

/CHECK APY? ADDRESS 


/STEP 


TO SPECIAL STATE 2 


/JGET FAC LSwe 
/CHECK FPP DaftA 
/DEC AORS 

/CHECK APT ADDRESS 


/STEP TO SPECIAL STATE 3 


/GET FAC LSWi | 
/CHECK FPP DATA 
/DEC ADRS 

/CHECK APT ADDRESS 


/@ TO 
/STEP 


ASAVE 


SPECYAL STafte 
TO STATE @ 


THE PAC? 


/NO 
/YES » COMPARE LSW 


/DEG ADRS 
/CHECK APT adOQRESS 


STEP 


/SAVE 
/NO 
AYES 


TO SPATE 1 


Fac? 


/COMPARE MSW 


/DEC, 


ADRS 


/CHECK APT ADDRESS 





4 Me IE tet 





/ FPP FLOWS 


2546 
2547 
2558 
2554 
2552 
2553 
2554 
25535 
2556 


2587 


2563 
2564 
2565 
2566 
2567 
2570 
2594 
2592 
2573 
2574 
2575 
2596 
2597 


\ 


4362 
1822 
2$65 
7646 
5935 
1232 
4764! 
4365 
4575 


5763! 


2608 
2663 
020 
2726 
7525 
7516 
0734 
1261 
7414 
0740 
0725 
0108 
7637 
2682 


PIAL@2 


EX{T2, 


VAa3 6edPRal2 


FSTEP 
TAD COMREG 
AND (20 
SZA Cha. 

UMP 143 
TAD ACEXP 
JMS EXGOM 
DECAPT 

CAPT 

UMP EXITS 
PAGE 


44107 PAGE 48 

/STEP TO MAJOR STATE 2 
/SAVE FAC? 

/NO 

/YES e COMPARE EXPONENT 
/DEC ADRS 

/COMPARE APT ABDRESS 
/GO0 TO STATE $ 


rial Siete, Uae Sata Me Niche AY 


a~ 


4 


4 Fpp FLOWS 


2§29 
2681 
2672 
2628 
2604 
2635 
2686 
2697 
2610 


2641 
2642 
2643 
2614 
2645 
2646 
2647 
2620 
262% 


2622 
2623 
2624 
2625 
2626 
2627 
2630 
2631 
2632 
2633 


4562 
1222 
2377 
7649 
5287 
1874 
4263 
4365 
4575 


4562 


1002 
376 


7648 
32e8 
1875 
4263 
4565 
4575 


4562 
1982 
2375 
7642 
3231 
4077 
4263 
4565 
4595 
5234 


OJALid 


EXYT3, 


EXIT4, 


EX!7Ts, 


V383 


FSTEP 
TAD 
AND 


6egPRe7e 


COMREG 
(280 


SZA CLA 


JMP 
TAO 
JMS 
DECAPT 
CAPT 


FSTEP 
TAD 

AND 

SZA CLA 
JMP 

TAD 

JMS 
DECAPT 
CAPT 
FSTEP 
FAD 

AND 

SZA Cha 


TAD 
JMS 
DECAPT 
CAPT 
JMP 


OPADRed 
EXCOM 


COMREG 
(46 


PBASEe! 
EXCOM 


COMREG 
(108 
as 


XZADRef 
EXEOM 


EX{T6 


41187 PAGE 42 
/STEP TO STATE 3 
ASAVE OP ABDR? 


NO 


/YES © COMPARE OF ADDR 
/DEG, ADRS — 
/CHECK APY ADDRESS 


ASTEP TO STATE 4 


/SAVE P@ ADDR? 


/NO 
/YES »# COMPARE P@ ADDR 
/DEC, ADRS 


/CHECK APT ADDRESS 
/STEP TO STATE 5 


/SAVE XQ ADDRESS? 
/NO 
/YES | 
/COMPARE Xa ADORESS 
/DEC, ADRS 
/CHECK APT ADDRESS 
/G0 TO STATE 6 

















4 feo Flews 





43$¢ 
12367 
4263 
4565 
4575 


4562 
4774! 
4263 
6557 
7402 
3373 
7044 
1294 
7649 
4772/ 
1771! 
7632 
5261 
477g¢ 
2721 
LLL 
4767! 
5766! 


2080 
3765/ 
1972 
7404 
7886 
1364 
3272 
6201 
1473 
62014 
7044 
4765! 
7652 
S303 
7940 
3771! 
$663 


PAL 


EX1T6, 


EXIT?7, 


EXCOM, 


VO2S 


FSTEP 
TAO 
JMS 
DECAPT 
CAPT 


FSTEP 
JMS 

JMS 
FPIS? 
ERROR 
AND 

CtA 

TAD 

Sza CLA 
JMS 

TAD 

SNA CLA 
JMP 

JMS 
APTERR 


6eAPRal2 


PFPCel 
EXCOM 


APTPAC 
EXCOM 


HALT 
(740 


PSTAT 


STERR 
FLAGS 


+4 


TYP 


SETRET 
START 


EXWD 
PAPT 


(COF 
of 


PAPT#1 
82 


EXwWd 
43 


FLAGS 
EXCOM 


14127 PAGE 42 


/STEP TO STATE 6 


/COMPARE FPC 
/DEC, ADRS 
/CHECK APT ADDRESS 


/STEP YO STATE 7 
/PACK APT FIELO BI?S 
/COMPARE FYELO BiTS 
/CHECK FLAG 

/FLAG 1S NOT SET 
/GET OVERFLOW STATUS 


/STATYS ERROR | 
/CHECK ERROR FLAC 

/WAS APT DATA STORED CORRECTLY ? 
/YES 

/NO = TYPE ERROR MESSAGE 


/SET REENTER ADDRESS 
/GO TO CONTROL PROGRAM 


/SAVE COMPARE WORD 
/GEY APY FIELO Bits 


/CREATE FPP cOF 
ACHANGE 70 FPP FIEL'D 


/GET APT INFO 
/PROGRAM FYELO 


SET ERROR FLAG 
/RETURN 








“ 


/ FPP FLOWS 


2704 
2705 
2706 
2707 
27408 
2744 
2742 


2743 
2744 
2745 
2746 
2747 
2728 
2724 
2722 
2723 
2724 
2725 
2726 
2727 
2730 


2734 
2732 
2733 


2735 


SUALi2 


4563 SPADD, 
4562 DPAQSS, 
4362 
3836 
4554 
4547 
7053 


4562 OPADBL, 
4569 
3237 
1205 
C363 
7632 
5324 
4577 
7442 
4576 
4762! 
7649 
53341 
5764! 


1924 DPOVFL, 
0360 
1397 
3984 
5757! 


VO8S 


ENTER 
FSTEP 
GEYOP 
SCA 
INCQP 
LOADAI 


FSTEP 
GETOP 


TAG 
AND 
TAD 
OCA 
JMP 


6eAPRea72 


BMSW 
FACFR 


BLSH 
PIR 
(2008 


OVFL 


DPOVFL 
DEP 


PSfaT 
(7877 
(280 
PSTAT 
EX}T 


salle, 


11197 PAGE 43 


45,P, ADS AND SUS 
/STEP TO STATE 2B 
/OUTBRK USING OP ADDF 
/MB TO BMSW 

/INC OF ADBR 

/FAC FRAC TO A 


/STEP TO STATE 4 
/QUTBRK USING OP ABOR 
/MB TO BLSW 


/SUBTRACTION? 
/NO » GO TO ADO 
/A MINUS B TO 6 


AA PLUS B #0 0 
/OVERFLOW? 


AYES 
/70 DEPOSI? 


/SEY ARITH FLOW 
470 EXIT 




















7 FPP FLOWS 


2736 
2737 
2742 
2744 
2742 
2743 
2744 
2745 
2746 
2747 
2759 
2754 
2732 


2783 
2735 
2736 
2787 
2768 
2761 
2762 
2768 
2764 
2765 
2766 
2767 
2770 
2774 
2772 
2773 
2774 
2775 
2776 
27797 


“) 


4563 
4562 
4562 
4524 
1237 
3045 
4554 
1052 
4522 
4597 
1822 
7700 
5756! 


5755 
3000 
3112 
2427 
7597 
2052 
8733 
2000 
6204 
8732 
0234 
7334 
6703 
2726 
7414 
0748 
6041 
0108 
0842 
0200 
3200 


Bp als2 


PFAQA, 
FADS, 


VBSS 


ENTER 
FSTEP 
GETOP 
STORB 
TAD 
OCA 
TNCOP 
TAQ 
STORA 
AMBO 
rad 
SMA CLA 
JMP 


NPAGE 
JMP f 


PAGE 


6eAPRe72 


BLSW 
MOLSH 


ACEXP 


OMSW 
SHFOP 


(', 920287608 


11187 PAGE 44 


/ADD © SUB OF F,P, NOS; 
/STEP TO STATE BD 
/OUTBRK USYNG OP AfOd® 
JMB TO BLSW SIGN TO BMSW 


/MB TO MQ USW 

/INC OP ADOR 

/GET FAC EXPONEN? 

/FAC EXP TO ALSW SIGN TO AMSW 
/A MINUS B TO 6 


/1S 0 LESS THAN @ 
/NO « SHIF® OPERAND PA?H 





a 
: 
F 


J Fpp FLOWS 


3222 
3271 
3g72 
3223 
3284 
3925 
3386 
3287 
3910 
3d14 
3312 


7242 
37773 
1023 
3776/ 
4545 
2022 
4539 
1375 
4374 
4522 
4576 


NTALL2 


VOGaS 


STA 
OCA 
TAD 
OCA 
LOADB} 


SEPM 
TAD 
TAD 
STORA 
AP8O 


BeAPRe72 


FLAGL 
OLSW 
SHREG 
OREG 


(a44 
(73 
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/SHIFT FAC FRACTION PATH 
/SET SHFT FAC FF 


40 TO SHFT CNTR 
70 TO B 


7EPM MODE? — 

{NO 73044847 
/73(89359(%) 

/#27 OR #39 TO ALSW 
/A PLUS B f0 0 














7 Fee FLaws 


313 
3344 
3215 
3346 
3247 
3922 
SZ21 
Sg22 
3228 
3224 
3925 
5226 
3g27 
3238 
SO34 
S232 


3833 
3034 
3o35 
S36 
3637 
3248 


3244 
3242 
3843 
544 
S045 
3246 


3047 
3052 
SO54 
3982 
3O53 
3254 
3935 
356 
3237 


4562 
4527 
456g 
4773! 
704g 
3230 
4554 
1222 
7742 
7242 
3772! 
4572 
4539 
5262 
4774! 
4554 


4562 
4569 
4773! 
7048 
3032 
4554 


4562 
4560 
4773! 
7042 
SO3S 
4554 


4562 
4560 
4773! 
7840 
SO34 
4564 
4544 
4564 
4779! 


OTAL12 


FAMXOL, 


FADO, 


PADOG1, 


FADDL2, 


VO23 


FSTEP 


SEPMEN 


GETOP 
JMS 
CMA 
DCA 
INCQP 
YAO 


SPA CLA 


CMA 
DCA 
CLRB 
SEPM 
JMP 
JMS 
INCOQP 


FSTEP 
GETOP 
JMS 
CMA 
DCA 
TNCOP 


FSTEP 
GETOP 
JMS 
CMA 
DCA 
INCQP 


PSTEP 
GETOP 


6eAPRat2 


CKSUB 
AMSW 
OMSW 


FLaGe 
FADD2 


SEX 


CKSUB 
ALSW4 


CKSUB 
ALSWe2 


CKSUB 
ALSWS 


REX 
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/STEP TO SFATE 4 

fi TO €PM ENABLE 
/QUTBRK USING OP ABDR 
/SUBTRACTION? 

JYES # COMPLIMENT MB 
/MB TO aAMSW 

ZINC OP ADOR 


40 @ YO QVERSHFT FF 
/@ TO B 

JEPM MODE 

/NO = GO TO STATE 2 
/SET YMSC EXECUTE 
/INC OP ADBRESS 


/STEP To FmMSC STATE @ 
JOUTBRK USING OP ABDRESS 
/SUBTRACTIBN? 

7YES =» COMPLEMENT MB 

MB TO ALSW4 

ING OP ADBRESS 


/STEP To tMSe STATE f 
/OUTBRK USING OP ABDRESS 
/SUBTRACTION? 

/YES = COMPLIMENT MB 

“MB TO aLSW2 

ZINC OP ADBRESS 


/STEP To TMSE STATE 2 
/QUTBRK USING OP ABDRESS 
/SUBTRACTIAON? 

AYES » COMPLIMENT MB 

/MB TO ALSWS 

/DEC OP ADORESS 

/OEC OF ADSRESS 

/DEC OP ADSRESS 

/RESET YMS@ EXECUTE 


vi hs a ee F 


Fe antennae mane me 





* Fam FLOWS. 


2362 
2O41 
33462 
3263. 
7264 
3265 
3366 
3367 
3072 
SO7L 
3972 
3973 
374 
3275 
3276 
3277 
3192 
3484 
3192 
3193 
3184 
3485 
3186 
3187 
3142 
Siti 


NTALG2 


4542 FADO2, 
4564 
4773! 
5266 
323-4. 
5274. 
7049 
3Q34 
1367 
3935 
1444 
3207 
4576 
45:65 
22053 
4523 
5306 
1252 
3245 
4543 
2836 
5766! 
4772! 
7649 
5766! 
5765! 


VO83. 


FSTEP 
GETOP 
JMS 
JMP- 
DCA. 
JMP 
CMA 
DCA 
TAD 
DCA 
TAD 
DCA 
APBO 
LOADBI 


SQEZ 
JMP 
TAD 
DCA 
LOADO} 


JMP 
TAO 
SZA CLA 
JMP 
JMP 


6m APRe72 


CKSUB 
13 
ALSW 
ic 


ALSW 
(7480 
AEXT 
C400 
CARYIN 


FACFR 


er 
ACEXP 
MQLSW 
BREG 


FAQEND 
FLAG2 


FADEND 
FADDS 
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/ASTEP TO STATE 2 
/JOUTBRK USING OP ADR 
/SUBTRACTIGON? 

/YES ee NOY MB TO ALSW 
/NO © MB TO ALSW 


/COMPLIMEN? MB 
/NOT MB TQ ALSW 
/COMPLIMEN? 8 TO AEXT 


44 TO ACRY IN 


/A PLUS B TO 0 Bs®@ IF ADDITION 
/FAC FRAC TO B 


/Oa8? 

/NO 

AYES e#Oef 

/FAC EXP TQ MOLSW 
/B 70 0 


G0 TO DEPOSIT 
/OVERSHIFY FF &# ¢ 9 


/YES » GO fO DEPOSIT 
/NO = GO 76 STATE $ 

















4 *pp FLOWS 


3112 
3118 
34114 
3145 
31146 
3117 
3128 
3121 
3122 
3123 
3124 
$125 


3126 
3127 
3130 
3131 
3132 
3233 
31434 
3435 
3136 
3137 
3149 
S144 
3442 
3143 
3444 
31445 
3146 
3447 
31398 


3162 
3163 
3164 
3145 
3166 
3147 
3172 
3171 
$472 
3473 
3174 
31475 
3176 
3177 





1223 
7042 
3776! 
4545 
3922 
453g 
1375 
4374 
4522 
4597 
2776! 
7020 


4562 
4527 
4562 
3036 
4554 
1922 
7740 
7040 
3772! 
4547 
2253 
4543 


DIAL 12 


SHFOP, 


FADOS1, 


V2a3 


TAD 
CMA 
DCA 
LOADB) 


SEPM 
Tad 
TAO 
STORA 
AMBO 
1$z 
NOP 


FSTEP 
SEPMEN 
GETOP 
DCA 
INCOP 
TAD 


SPA CLA 


CMA 
DCA 
LQADA} 


LOADOI 
SQEZ 


JMP 
CMA 


OCA 


CLRA 
JMP 


PAGE 


Be sPReal2 


OLSW 
SHREG 
OREG 


(044 
(78 


SHREG 


BMSW 
OMSW 
FLAG2 
FACFR 
AREG 


FADQLA 
FLAGS 
FA6G4B 
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/STATE 2 SMIFT OPERAND 


/0 COMPLIMENT TO SHFT CNTR 
/O TO B 


/EPM MODE? 

JNO, 73044829 
473¢8)359(%B) 

/*27 OR #39 TO ALSW 
/A MINUS B TO 6 
JING SHFYT @OUNTER 


/STEP To STATE 1 (SHFYT QP PATH) 
/1 TO EPM PNABLE 

/OQUTBRK USING OP ADDRESS 

/MB TO BMSW 

ZINC OP ADBR 


/O B TO OVERSHPT FF 
/FAC FRAC P0 A 


fA TO 0 


QO 8 8 ? 
/NO 

7/YES 

74 70 ADD BERO FF 
48 0 A 


Basel et hae aca tse 


a™~ 


/ Fpp FLASws 


3239 
3234 
3242 
3223 
3294 
3205 
3286 
3287 
3249 


S241 
S212 
3213 
3214 


3215 
3216 
3247 
3228 


$221 
3222 
3223 
3224 
3225 
3226 
3227 


1252 
3245 
1777? 
7640 
5275 
4532 
S232 
4776! 
4354 


4562 
4560 
3049 
4554 


4562 
4562 
3041 
4554 


@3562 
4569 
3242 
4564 
4564 
4564 
47751 


OTALi2 


FADZYA, 


FADZ{B, 


FADS, 


FADS{1, 


FADGi2, 


VG23 


TAD 
904 
TAD 


SZA CLA 


JMP 
SEPM 
JMP 
JMS 
INCOP 


FSTEP 
GE TOP 


OCA 
NCOP 


FSTEP 
GETOP 
OCA 

TNCOP 


FSTEP 
GETOP 
0Ca 

DECOP 
DECOP 
DECOP 
JMS 


GaeaPRe72 


ACEXP 
MOLSW 
FLAG2 


FADEND 


FAODG2 
SEX 


BLSW4 


BLSWe 


BLSWS 


REX 


lin, 
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/FAC EXP TO MQLSW 


/OVERSHFT FRei? 

JYES » GO T0 DEPASIT 
/EPM MODE 

/NO » GO Ta STATE 2 
/SEY TMSC EXECUTE 
/INC OP ADBRESS 


/STEP TO FMSC STATE @ 
/OUTBRK USING OP ADDRESS 
/MB 70 BLSW1 

/INC OP ADBRESS 


/STEP To YmSe STATE f 
/OUTBRK USING OP ABDRESS 
/MB TO BLSW2 

/INC OP ADDRESS 


/STEP TO TmSc STATE 2 
/OUTBRK USING OP ABORESS 
/MB TO BLSW3 

/DEC OF aDBRESS 

/OEC OP ADDRESS 

/DEC OP ADDRESS _ 
/RESET TMS® EXECUTE 














3232 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3242 
S244 


3242 
S243 
3244 
3245 
$246 
3247 
3250 
3281 
3252 
3233 
3254 
3255 
3256 
3237 
3268 
3261 
3262 
3263 
3264 
3265 
3266 
$267 
3270 
3274 
3272 
3273 
3274 
3275 
3276 
3277 
3300 
S304 


2 


/ FepP FLOWS 


4562 
4562 
3237 
1774! 
7652 
5242 
4543 
3836 
4577 
5275 


4562 
4526 
47734 
7642 
5236 
1772! 
764g 
5254 
4577 
5257 
1144 
3907 
4576 
4771! 
7650 
5275 
4545 
8222 
4524 
2036 
1036 
4821 
3936 
4543 
0036 
277g! 
7440 
377g! 
3772! 
37771 
3774! 
5767! 


DALES 


FADD@e, 


FADOS, 


PADEND, 


VB8S 


FSTEP 
GE TOP 
OCA 
TAD 


SNA CLA 


JMP 


LOADO) 


AMBO 
JMP 


FSTEP 
SHFTB 
MS 


JMP 
TAD 


SZA CLA 


JMP 
AMBO 
JMP 
TAD 


LOADB) 
SHIFT) 


TAQ 
TAD 
OCA 


LOADOS 


1$2 
SKP 
DCA 
DCA 
DCA 
DCA 
wMP 


J 
SKP CLA 


6waPRe72 


BLSW 
FLAGS 


FADDS 
BREG 


FADEND 


CKSUB 


»*iB 
FLAGS 


#3 


ea 
C480 
CARYIN 


OVFL 


PADEND 
OREG 


BREG RIGHT 


BMSW 
cAROUt 
BMSW 
BREG 


SHREG 


SHREG 
FLAGS 
FLAG2 
FLAGS 
DEP 
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STEP TO STATE 2 
/OUTBRK USING OP ADD® 
/MB TO BLSW 


/ADD ZERO FFei 

/NO = GO TO STATE 8 
48 T0 0 

/YES » A MINUS B fO 0 
/GO To oePastt 


/STEP TQ STATE 3 


/SF SHFY CNTR NE @eSHIFT B 


/SUBTRACTION? 

/YES e CHECK SHFT FAC FF 
JNO e ADD k AND B 

/SHFT FF SET? 


/NO @ #4 FO CARRY IN 
AYES e A MENUS B FO 0 


/4 TO CARRYING 

7h PLUS B f0 0 
/FRAC OVERFLOW? 
7NO_= GO TO DEPOSI? 
40 T0 B 


/SHIFTED RIGHT 


ZUNSERT ORIGINAL SIGN 
78 70 0 
JING SHFT ENFR 


/CLEAR FLAGS 
/GO TO DEPeStT 


sg it Albee psc a gt 


cllanccamanner ge eS a Oe 


1 { 


/ Fpp FLOWS 


3342 
3533 
33.24 


3305 
3306 
3307 
3310 
S314 
3342 
33413 
3314 
3345 
3346 
3317 
3320 
3324 
3322 
3323 
3324 
3325 
3326 
3327 
3330 
3334 
3332 
3333 
3334 
3335 
3336 
3337 
3340 


3368 
3363 
3362 
3363 
3364 
3365 
3366 
3367 
3370 
S374 
3372 
8378 
3374 
3375 
3376 
3377 


4563 
7242 
3766! 


4562 
4527 
4569 
3036 
1036 
7742 
7040 
3772! 
4554 
4574 
4530 
4365 
1364 
3779) 
4763! 
7780 
$334 
4762! 
6567 
3779! 
1772! 
7040 
377g! 
4539 
5761! 
4776! 


3489 


NTAut2 


FMULT, 


MUL Te 


V223 


ENTER 
STA 
ACA 


FSTEP 


SEPMEN 


GETOP 
DGA 
TAD 


SPA CLA 


CMA 
DCA 


INCOP 


CLRA 
SEPM 
TAD 
TAD 
DCA 
TAD 


PAGE 


6eaPRe72 
MDFLAG 


BMSW 
BMSW 


FLAGL 


(344 
(73 
SHREG 
SHPLAG 
144 
SHFCNT 


SHREG 
SHAEG 


SHREG 


MUL TS 
SEX 


MUL TOe 


itn, 


41187 pace 5¢ 


/ENTER MULTIPLY 
/SET MULT, DIV, FLAG FOR MULTIPLY 


/ENTER STATE @ 
44 TO EPM ENABLE 
/QUTBRK USING OP ABDR 


/MBQ TO OF SIGN 

/INCREMENT OP ADSBR 

/BTO A 

/EPM MODE 9 

JNO # MAKE SHIFT COUNT e285 
/23 OR 59 TO THE SHIFT COUNT 
f/235 TO SHIPT CNTR 


/OPERATOR SELECTED SHIFT CNT? 
/NO*USE NORMAL SHIFT CNT 
/YESeGET SPECIAL COUNT 

/LOAD FPP SHIFT RES 


/NEGATE SHYFY REG 

/POR DECREMEN® Wife 

/1Sz2 LOoPr 

7EPM MODE ? 

wNOe GoTo Stave f- 
/YES » 4 70 TMSC EXECUTE 
/INC THE OP adBbReSss 

760 TO EPM STATE @ 

















FPP FLOWS 


3426 
3431 
3482 
3483 


3404 
3435 
3436 
3487 


3442 
3444 
3442 
3443 
3444 
3445 
3446 


3437 
3428 


S421 - 


3422 
3423 
3424 
3425 
3426 
3427 
3430 
3434 
3432 
3433 
3434 
3435 
3436 
3437 
3449 
3441 
3442 
3443 
3444 


3445 
3446 
3447 
3459 
3454 
3452 
3453 





QTALL2 


MULT, 


MULT@4, 


MULTO2, 


MULT4, 


MUL TIA, 


V88S 


FSTEP 
CETOP 
DCA 

INCOP 


FSTEP 
GETOP 
DCA 

INCOP 


FSTEP 
GETOP 
BCA 

DECOP 
DECOP 
DECOP 
JMS 


FSTEP 
GE TOP 


LOADMQj 


TAD 


6eAPRe%2 


BLSWL 


BLSW2 


BLSWS 


BLSW 
FLAG4 


“43 


OREG 
ACMSW 


SPA CLA 


JMP 


LOADA! 


JMP 
SAVE) 


CLRA 


LOADB) 


AMBO 


LQADA} 
LOADOI 


CLRB 
JMP 


+4 
FAGFR 


MUL TSA 


OREG 


FAGCFR 


QOREG 


TREG 


MULT2 


11107 PAGE 52 


/STEP TO EPM STATE @ 
/OUTBRK USING OP ADDRESS 
/MB TO B LSWd 

/INC OP ADDRESS 


/STEP TO EPM STATE 1 
/QUTBRK USING OP ADDRESS 
/MB TO BLSW 2 

/INC OF AQBRESS 


/STEP TO EPM STATE 2 
/OUTBRK USING OP ABDRESS 
/MB TO BLSW 3 

/BDEC OP ADSRESS 

/DEC OF ADSRESS 

/DEC OP ADDRESS | 

/RESET TMS@ EXECUTE 


STEP YO STATE 4 
/OUTBRK USING OP ABDR 
/MB TO BLSW 

/GET OP SIGN 

oe S]GNei? 


AYES | 
JNO#A PLUS B TO 6 
7A MINUS B fO @ 
70 TO MQ 


/GAC FRAC LT o? 
/YES 
AFAC PRAC FO A 


/SAVE THE O REG 0 YSE FRE ADDER 


/GLEAR THE A REG 


/PAC FRAC #0 B FOR NEGATION 
/TRIS REPLACES COMPLEMENT FAC 


/T0 A AND £ TO CARRY JIN 
/MINUS FAC FRAC FO A 


/RESTORE THE O REGISTER 


/@ 70 8 
/GO TO STATE 2 


a 
aA - 
Bal 
oe 


ae sea eh cs, Sal: aries vena ae i Far a ca eee Ba 


aa acl apc tates tact acta a alan bi tl ate! “AB ey Baer eee de ee 





a ct erie si he A pack a 


i \ 
4 = 


/ FPP FLOWS 


3454 
3455 
3456 
3487 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3447 
3472 
3474 
3472 
3473 
3474 
3495 
3446 
3477 
3500 
3504 
3582 
3583 
3504 
3505 
3596 


4562 
3207 
4576 
27751 
7442 
5307 
4539 
5266 
1052 
7442 
1045 
7240 
7620 
5276 
4545 
9922 
1227 
3843 
4524 
9236 
4524 
3944 
1944 
1374 
3944 
3254 
5255 


MADD, 


OF ALi2 


MULT2¢ 


VES 


FSTEP 
DCA 
APBO 
1$z 
SKP 
JMP 
SEPM 
JMP 
TAD 
SKP 
TAD 
RAR 
SNL Cla 
JMP 
LQADB} 


TAQ 
OCA 
SHIFT] 


SHIFT) 


VAD 
TAD 
OCA 
OCA 
JMP 


6eAPRe72 


CARYIN 
SHREG 
MULT24 


148 
MQLSWS 


MQLSW 


‘ 5 
OREG 


OEXT 
BEXT 
BREG 


MQREG 


MQMSW 
(4000 
MQMSW 
MOEXT 
MABD 


RIGHT 
RIGHT 





lle, 
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/STEP TO STATE 2 


/ENABLE A PLUS B TO 2 
/OEG SHFT CNTR S,C,=0 
/NO@CONTINUE 
/YES*#GO TO STATE 2s 
/EPM MODE ? 

/NO 

“YES © GET Ma 59 


/NO © GET MQ 28 

/MOVE LSB TO LINK 

MQ 23 OR MQ 59 & ¢ ? 
/NO 

/YES e@ STROBE B 


70 EX? TO B EXT _ 
/NOT DONE IN LOAD ROUTINE 
/SHIFY 8 

/MOCN) TO MQ(NO4L) 

/YNSERT ONES INTO MOOD 


/CLEAR MQ EXT 
/CONTINUE UNTILL S4C\ a8 








/ Fpo FLOWS 


2597 
3542 
3544 
3542 
3513 
3544 
3515 
3546 
3547 
3528 
3524 
3522 
3523 
3524 
3525 
3526 
3527 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3540 


c 
e 


7 ) 
\ 
we vi 


4543 
1036 
1892 
7742 
5316 
4564 
4564 
4545 
ag22 
1927 
3843 
4574 
1853 
7104 
72089 
1776! 
7530 
7410 
5336 
7060 
7529 
5336 
4597 


Stalia 


MULT21, 


VOOS 


LOADS) 


TAD 

SPA CLA 
JMP 
DECQOP 
DECOP 
LOADBI 


TAD 

DCA 
CLRA 
TAO | 
CLL RAL 
CLA 

TAD 

SPA SZ. 
SKP 

JMP 

CMA CML 
SMA SNL 
JMP 
AMBO 
TAD 

SPA CLA 
JMP 
NPAGE 


JMP 3 


PAGE 


6eaPRe72 


BREG 
COMREG 


13 


OREG 


OEXT 
BEXT 


ACMSW 
FLAGS 


105 


a 
COMREG 
MULEND 


(', #20887408 


11187 PaGE 54 
7B TO 8 


/OOVBLE PRECISION? 
/YES 

/QEC OR ADO6R 

40 70 8 

/Q EXT TO B EX? 


2 TO A 
/ 


/ 
/PROG NEG? 


/NO@PROD $8 POS 
/NOwPROD [8 POS | 
/PROD IS NEGeA MUNUS B fO 0 


/DOUBLE PRECISION? 
/YES@GO TO DePasit 





/ FPP FLOWS 


3648 
3624 
3632 
3628 
3624 
3685 


3686 
3687 
3612 


3611 
3642 
3643 
3644 
3645 
3616 
3647 
3620 
3621 
$622 
3623 
3624 
3625 
3626 
3627 
3630 
$631 
3632 
3633 
3634 
3635 
3636 
3637 
3642 
3644 
3642 
3643 
3644 
3645 
3646 
3647 
3659 
3651 
3652 
3653 
3654 
3655 
3656 


4562 
456g 
3045 
4554 
4554 
57771 


4563 
7240 
3776! 


4562 
4527 
4547 
8253 
1233 
7708 
5227 
45.45 
eg83. 
4594 
4597 
3027 
4547 
022 
4560 
3036 
1036 
7718 
7049 
3795! 
4534 
4774! 
7640 
5245 
4539 
4373 
1372 
3774! 
47734! 
6567 
4771! 
7044 
377g! 
4574 
4539 
5276 
4767! 
4554 


SP4L¢8 VveAs 


MULT, 


MULEND, 


PFOIV, 


AIV2, 


OIVOA, 


FSTEP 
GE TOP 
OCA 
INCOP 
INCOP 
JMP 


ENTER 
STA 
OCA 


PSTEP 


SEPMEN 
LOADAI 


TAO 


SMA CLA 


JMP 


LOADB} 


CLRA 
AMBO 
DCA 


LOQOADAI 


6eAPRa72 


MQLSW 


MOFLAG 


FACFR 
ACMSW 


ete 
FACFR 


OEXT 
OREG 


BMSW 
BMSW 
FLAGS 
SHPLAG 
45 
(237 
(73 
SHPCNT 
SHFCNT 
SHFCNT 
SHREG 


OlVi 
SEX 


a 
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ASTEP TO STATE 38 
/QUTBRK USING OP ABDR 
/MB TO MOLSW 

ZINC OP ADBR 


7GO TO DEPOSI? 


/JENTER DIVIDE 
ASET MULT, DIV, FLAG 


ASTEP TO SPATE @ 
4/4 TO EPM ENABLE 
/PFAC FRAC FO A 


/B CAN BE USED FOR NEGATION 
/FAC < 8? 
/NO @ Fac ¥0 A IS ALREADY BONE 


/asene 


/GOMP Fac 70 A, Aol TO 0, 0 TOA 
/BELIEVE ME If WORKS AND DOESN/T 
/TAKE MUCH ROOM, 

/ 


/OUTBRK USING OP ABOR 
/MB TQ BMSW 


/MB@ TO OP SIGN 
ZINC QP ADOR 


/SPECIAL SHIFT? 

AYES e GEY COUNT 

7EPM MODE? 

(NO, 7Se37e34 

/GEY SHFT ENT, 34 OR 59 
/SET SHIFT COUNT . 
/YESweSHFONT#@ If NOT USED 
/OAD FPP SHIFT REC 


JCLEAR MQ REG 

/EPM MODE? _ 

/NO © GO TO STATE i 

/SET TMSC EXECUTE 7 
/INCREMENT THE OP ADDRESS 














3657 
2662 
3664 
3662 


3663 
3664 
3665 
3666 


3667 
36798 
S674 
3672 
3673 
3674 
3675 


3676 
$677 
3788 
3764 
3782 
3783 
3784 
S785 


a 
| i 


p 
. 


/ FPP FLOWS 


4562 
4562 
3242 
4554 


4562 
4562 
3844 
4554 


4562 
4562 
3042 
4544 
4564 
4564 
4766! 


4562 
4549 
3837 
3043 
4543 
S936 
4523 
5315 
1904 
8345 
1364 
3904 
45i7 
2364 
5763! 
4543 
2032 


Otali2 


O1Vaa, 


OVS, 


O1V22, 


DIV’, 


V28S 


FSTEP 
GETOP 
DCA 

{NCOP 


FSTEP 
GE TOP 
OCA 

INCOP 


FSTEP 
GETOP 
OCA 

DECOP 
BECOP 
DECOP 
JMS 


FSTEP 
GETOP 
DCA 


DCA 
LOADO! 


SQEz 


. 
LOADO! 


6esPRev2 


BLSW4 


BLSWe 


BLSWS 


BLSW 
BEXT 
BREG 


+ +9 
PSfa’ 
(7377 
(49¢ 
PSfaT 


EXIT 
AREG 


14127 PAGE 56 


STEP TO TmMSC STATE 2 
/JOUTBRK USING OP ADDRESS 
/MB TO BLSW4 

ZINC OP ADGSRESS 


ASTEP To TMSe STATE 4 
/QUTBRK USING OP ABDRESS 
MB TO BLSW2 

INC OP ADDRESS 


/STEP To YMSC STATE 2 
/QUTBRK USING SOP ABDRESS 
/MB TO BLSW3 

ADEC OF ADSRESS 

/DEC OF AaDORESS 

DEC OF ADBRESS | 

/RESET FMSE EXECUTE 


/STEP TO SPATE 4 
/OUTBRK USING OP ABDR 
MB TO BLSW. 

/GLEAR 8 EXT 

4e7o o 


408 2? 


/NO 
/YESeeSET AIVIDE BY B BIT 
/SAVE OTHER BITS 


/TRACING PROGRAM? 
/YESeeDIVIHE BY EERO 
GO TO EXI? 

7a 70 0 


Ber nee ene Ne SR a er | 





/ FPP FLOWS 


3717 
3729 
3724 
3722 
3723 
3724 
3725 
3726 
3727 
3730 
3734 
3732 
3733 
3734 
3735 
3736 
3737 
3740 
3744 
3742 
3743 
3744 
3745 
3746 
3747 


3780 
S744 
3762 
3768 
3764 
3765 
3766 
3767 
3772 
3774 
3772 
3773 
3774 
3775 
3776 
3797 


CfA s12 


4562 dive, 
1772! 

7650 

5762! . 
4534 DIVIDE, 
3222 

1775! 

7790 

5332 

4576 

7410 

4577 

4524 

4944 

4530 

$343 

1024 

7640 

2050 

5350 

1824 

7140 

7042 

1054 

3054 


V283 


FSTEP 


SAVE) 


TAD 

SMA CLA 
JMP 
APBO 
SKP 
AMBO 
SHIFT] 


CLI, RAR 


PAGE 


BeKPRe 72 


SHREG 


ENDDIV 
OREG 


FLAGS 


hd 
MQREG 


hee 
CAROUT 
MQLSWS 
1*6 

CAROUT 


MOEXT 
MQEXT 


LEFT 


(20087600 


14127 PAGE 5? 
STEP STATE 2 
/CHESK SHIFT REG FOR ZERO 


/NO DIVIDE IF SH REGSO 
/SAVE THE O RES JN CASE CARRYOUTe® 


/GET QP SIGN 
/OP SJGNsO? 
AYES 

NO @= AeB FO 0 


/OP S}GNsO, ENABLE A=B 
JMQ(N) TO MQUN@d) 


/EPM MODE? 

/NO 

/GET GARRY OUT 

/CARRY OUTAL? 

/YES = CARRY OUT fo MQ89 


/GET CARRY OUT 


/GARRY OUT TO MQ87 




















7 FPP FLOWS 


4gag 
sant 
4922 
4943 
4ga4 
4905 
4306 
4907 
sada 
4g41 
4942 
4943 
4244 


4gi5 
4046 
4047 
4920 
4924 
4922 
4923 
4924 
4925 
4926 
4927 
4930 
4g31 
4932 
4933 
4934 
4935 
4936 
4937 
4g4g 
4g44 
4942 
4943 
4g44 
4945 
4946 


4947 
42530 





OY Aui2 


1824 
7712 
5205 
4543 
2062 
4524 
6922 
2777! 
7410 
$215 
4547 
2822 
5776+ 


4545  eNDDIV, 
p044 

1054 

3043 

4574 

3007 

4543 

0836 

1882 

7702 

5261 

1022 

7702 

5243 

4247 

1804 

8375 

1374 

3004 

4547 

2375 

8773! : 
4343 OSVOK, 
8236 

4247 

5313 


002 QUONEG, 
4953 
7424 
7200 
4772! 
7539 
7062 
7539 
4577 
5647 


V2a8 


TAO 


SPA CLA 


JMP 
LOQADO} 


SHIFT) 


1$z 
SKP 
JMP 
LOADAI 


JMP 


LOADBI 


Fad 
OCA 
CLRA 
DCA 
LOADO} 


Ad 


SMA CLA 


JMP 
TAD 


SMA CLA 


JMP 
JMS 
TAD 
AND 
TAD 
DGA 
TRACE 
OLvov 
JMP 
LQAD0! 


Ms 
UMP 


2 
TAD 


CLL RAL 


CLA 
TAD 


SPA S2L 
CMA CML 
SPA S21 


AMBO 
JMP 1 


6eAPReF2 


CAROUT 


+S 
TREG 


OREG LEFT 
SHREG 


ENBOIV 
OREG 


OVVIDE 


MQREG 


MQEXT 
BEXT 


CARYIN 
BREG 


COMREG 


FLOIV 
OMSW 


DIVOK 
QUONEG 
PStat 
(7577 
(282 
PSTaT 


EXtT 
BREG 
QUONEG 
DVEND 
ACMSW 


FLAGS 


QUONEG 
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ACARRY OUTeL 
AYES » O JS ALREAQY LOADED 
/NO @ RESTORE THE © REG 


ASHIFT O 


/DEC SHIFT COUNTER 
/SHIFT COUNTER NOTad 
4S,G,88 ENS oF DfvfoEe 
7OUN) To AUN) 


/YES » MQ 70 B 
/,QA0 EXTENS{ON 


/@ERO TO A 
Ate CARRY IN FP 


/GET COMMAND REGISTER 
/FIXED ad MODE ? 
JNO = GO TQ PLOATING DIVIDE 


/O0 LESS THAN @? 

/NOs@CONTINUE 

fhe B IF QUOT TENt 18 NEGATIVE 
/GET STATUS REG 

/SAVE OTHER arts 

/SET FRae SVERPLON BfT 


/TRACING PROGRAM? 
/YES*DIV IDE P,P, OVERFLOW 
/GQ TO Ext? 

78 70 0 IF SIGNS ARE LIKE 


/h = B IF GUOTIENT IS NEGATIVE 
GO TO DEPOSI? 

/GET FAC MSW 

/SAVE SIGN 

/GET OP SI6N 

OP SIGN @ FACt(O)? 


/NOwA MINUS B TO Q 
JRETURN 





bees 39Va 


Ch8ddV OG 








SMO 4 dda / 


i 
= 
‘= 


wy 


Preccemrortc nize aewiemetsn 


seieeks 





ca er pen catenin 





ne ee rem 





/ FPP FLOWS NTALi@ VveI3 6APRa72 41:27 PAGE 59 
4361 4564 FLOIv, DECOP /DEC OP ADSRESS 
4362 4564 NECOP /DEC OP ADBR 
4963 1922 TAD OMSW 
4264 77082 SMA CLA JO LT 22 
4965 S271 JMP +4 sNO 
4G46 4524 SHIFT) BREG RIGHT  /SHIFT B 
4067 0936 
4979 2777! 1S2 SHREG JING SHFT ENTR 
4g71 4543 LOADO} B8REG /B TO O IF S{GNS ARE LIKE 
4972 8836 
4973 1053 TAD ACMSW /GET FAC MSW 
4974 7104 Ci RAL /SAVE SIGN 
4975 7282 CLA ; 

4976 4772¢ YAd FLAGS /GET OF SIY6EN 
4g77 7530 SPA S2L 

4492 7960 CMA CML /OP SIGNSFAC(O)? 
4401 7530 SPA S2L 

4182 4597 AMBO /NOeA MINUS B TO 0 
41493 5394 UMP DIVv3 /GO TO STATE 3 
4184 4562 OIVS, PSTEP STEP TO SPATE 3 
4405 4562 GETOP /QUTBRK USING OP ABDR 
4196 3045 DCA MQLSW sMB TO MOLSW 
4107 3044 OCGA MQMSW /CLEAR MQ MSW 
4110 3951 DCA MQEXT /CLEAR MQ BX? 
4141 4554 INCOP 

4142 4554 _ NCOP ; /INC OP ADBR 
4443 5792/ OVENS, UMP OEP 7GO TO oFPastft 
4414 4563 FLOX, ENTER /ENTER LOX 

4145 4562 LOXi, FSTEP JSTEP TO SPATE 1 
4116 4574 CLRA /@ TO AMSW 
41447 10085 TAD PIR /GET INSTRUCTION 
4429 8372 ANO (7 

44294 3931 OCGA ALSW 

4422 4545 LOADB} X@ADR /X@ aDOR TO B 
4423 2076 

4424 4596 APBO /4 PLUS B 0 0 
4425 4542 LQADOPS OREG /O0 TO OP ASDR 


4126 





4022 


f z 


/ FOR FLOWS 


4127 
4132 
4431 
4132 
4433 
4434 
4435 


4136 
4137 
4142 
4141 


4142 
4143 
4144 
4445 
4146 
41447 
4152 
4131 
4132 
4183 
4134 
43485 
4156 
4137 
4168 
4461 
4162 
41463 


4166 
4167 
4179 
4471 
4172 
41473 
4474 
4475 
4176 
4177 


4562 
4357 
3334 
3838 
4552 
4543 
2232 


4562 
1223 
4536 
5767) 


4563 
4562 
3932 
10985 
0378 
3931 
4545 
3076 
4576 
4542 
9922 
4572 
1282 
7742 
5363 
1952 
4521 
5766! 


4200 
1261 
2007 
2052 
8726 
2427 
3282 
7577 
3723 
4724 
4220 


OyALt2 


LUX2, 


LOXS, 


PALN, 
ALNI, 


Vas 


FSTEP 
GETPC 
DCA 
DCA 
INCPC 
LOADO) 


FSTEP 
TAQ 
PUTX 
wJMP 


ENTER 
FSTEP 
DCA 
TAD 
AND 
DCA 
LQAQB) 


APBO 
LOADOP; 


PAGE 


6~APRe72 


ALSW 
AMSW 


AREG 


OLSW 
FEYCH 


AMSW 
PIR 
7 
ALSH 
XOAOR 


OREG 


COMREG 


43 
AGEXP 


ALN2 


-~ 


14107 PAGE 66 


/STEP TO STATE 2 
/OUTBRK USING FPC 
/MB TO ALSW 

/@ TO AMSW 

/tNC FPC 

7A TO 0 


/STEP TO SPATE S$ 


40 LSW TO INDEX REG 
7G0 TO FETCH 


/ENTER ALN 
/STEP TO SPATE 4 
/@ TO AMSW 
/GET INSTRUCTION 


/FIR 9eii TO ALSW 
/X@ ADDR TO B 


7A PLUS B TO 0 
4Q TO OP ABOR 


4070 8 
/GET at REGISTER 

40, P, Mad 

/YES e 00 ee STORE EXPONENT 
/Fac EXP Yo B LSW 

/SIGN EXTEND f8 Onan 

/GO0 TO STATE 2 














/ FPP FLOWS 


4202 
4274 
4222 
4223 
4234 
4295 
4246 
4287 
4242 
4241 
4242 
4243 
4214 
4245 
4246 
4247 


4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4239 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4242 
4241 
4242 
4243 
4244 
4245 





4562 
1025 
2377 
7452 
5211 
1376 
3009 
1402 
74140 
1145 
4522 
1822 
7742 
5220 
1031 
3952 


4597 
1223 
3775) 
4545 
2022 
4222 
7712 
7940 
3774/ 
1695 
8377 
7642 
4539 
1373 
1372 
4522 
1774! 
7642 
5245 
4577 
7440 
4576 


Opaui? 


ALN2, 


ALN2Z2e 


vV2e3 


FSTEP 
TAD 

AND 

SNA 

JMP 

TAD 

OCA 

TAO { 
SKP 

TAD 
STORA 
TAO 

SPA CLA 
JMP 

TAQ 

OCA 


AMBO 
TAD 
OCA 
LOAOB! 


TAQ 

SPA CLA 
CMA 

OCA 

TAD 

ANO 

S#a CLA 
SEPM 
TAD 

TAd 
STORA 
TAD 

Sea CLA 
JMP 
AMBO 
SKP 
APBO 


6eAPRe72 


PIR 
(7 


35 
(X@ 

Ti 

Ti 

C2? 
COMREG 
ALN22 


ALSW 
ACEXP 


OLSW 
SHREG 
OREG 
OMSW 
FLAGS 


PIR 
(7 


(044 
(73 
FLAGS 


+3 
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/STEP TO STATE 2 
/GET INSTRUCTION 


/X = @ ? 

/YES = 27 70 A 

/GET PROGRAM {NDEX REG 
INSTEAD OF OUTBRK 
/CONTENTS OF X 


/GET OCTAL 27 

JMB OR 27 T0 A 

/GET COMMAND REG{STER 
40, P, MOOE 

/LEAVE EXP ALOQNE 


JMB TO FAC EXPONEN? 


7A MINUS B TO 6 


40 TO SHIF? CNTR 
40 TO 8 


/08 TO SHIFT O FF 

/GET INSTRUCTION REGISTER 
/EXTRACYT INDEX BITS 

/XB 

/EPM MODE ? 

/27 = OVERSHIFT 

/25 OR 59 

/TO THE A REC 


/SHFT O FFai? 
AYES 
/NOw"A MINUS B TO 0 


JA PLUS B TO 0 


a | lata Raia ta ae pe ke 


- 


4246 
4347 
4252 
$2514 
4252 
$2533 
4254 
4255 
4256 
4287 
4249 
$2461 
4262 
4243 


4244 
4265 
4266 
4267 
4279 
4274 
4272 
4273 
4274 
4275 
4276 
42797 
$338 
4301 
46392 
4343 
4344 
4305 
4386 
4347 
4312 
4311 
4312 
4313 
4344 
4315 
4316 
4317 
4320 
4324 
4322 
4323 
4324 
4325 
$326 
4327 


‘ Tepp FLOWS 


4562 
4527 
1022 
77930 
5255 
4572 
5257 
4545 
0953 
4543 
A036 
4523 
5264 
3775) 


4562 
1774/ 
7004 
7200 
4775! 
7420 
7041 
3775! 
4774/ 
7650 


. $981 


4525 
5325 
4526 
1933 
7710 
4523 
5323 
7240 
3922 
7240 
3923 
4530 
5325 
7240 
3024 
7240 
3225 
7240 
3026 
5325 
4543 
1036 
4546 
1922 
57744 


SITALA2 


ALNS, 


ALN4, 


ALNEND, 


V223 


FSTEP 


SEPMEN 


TAD 


SMA CLA 


JMP 
CLRB 
JMP 


LOADB) 
LOA0O) 


SQEz 
JMP 
OGA 


FSTEP 
TAD 
RAL 
CLA 
TAD 
SNL 
CTA 
DCA 
TAQ 


SNA CLA 


JMP 
SHFTO 
JMP 
SHFTB 
FAO 


SPA CLA 


SOEz2 
JMP 
STA 
DCA 
STA 
OCA 
SEPM 
JMP 
STA 
DCA 
STA 
DCA 
STA 
OCA 
JMP 


LOQADO!} 
LOADAC) 


JMP 


SeaPRe7%e2 


OMSW 
+3 


143 
FACFR 
BREG 


ALN4 
SHREG 


FLAGS 
SHREG 
SHREG 
FLAGS 
3 
ALNEND 
FAGFR 


ALNEND#2 
OMSW 
OLSW 
ALNEND 
OLSW4 
OLSWe 
OLSWS 
ALNEND 
BREG 
OREG 


FETCH 





il, 


11127 PAGE 62 
/STEP TO STATE 3 
74 TO EPM ENABLE 
/O00s17 

ANO 

/YES » @ 70 8 
FAC FRAC 70 B 
/B ro 0 

/Q22? 


/NO=GO TO STATE 4 
/YES@eQ TO SHFT CNTR 


/STEP TO STATE 4 

/SAVE SHFT O FP 

/GET SHFT ENTR 

/ADJUST SHIFT ENTR FOR [S2 


/SHFT O FRag? 
/YES a 
/JNO@SHIFTO UNTIL $°C, 98 


/SHIFT B UNTIL SiC4 sa 
/GET FAC FRACTION | 

/O0 = O AND FAG FR NEG ? 
O28? 

/NO = B T00 

YES =» LOGICAL 1 TO 0 
/LOGIGAL 4 TO OMSW 


ALOGICGAL 4 TO OLSW 

/EPM MODE 9 

/NO = FINISHED 

AYES » LOGICAL 1 TO EPM LSW/S 


400 NOT MOVE B TO 6 
7B TO 0 


/0 TO FAC FRACTION 


/GO TO FETSOH 











/ Fpe FLOows 


4332 
43314 
4332 
4333 
4334 
4335 
4336 
4337 
4349 
4344 
4342 
4343 
4344 
4345 
4346 
4347 
4332 
. 4354 
4382 
4383 
43534 
4355 


4366 
4367 
4379 
4371 
4372 
4373 
4374 
4375 
4376 
4377 





4563 
4562 
323g 
4205 
9377 
3O31 
4545 
0076 
4576 
4542 
922 
1022 
7720 
5353 
4545 
033 
3775! 
477g! 
5767! 
1882 
4524 
5766/ 


4400 
4444 
6250 
1261 
5273 
7734 
2726 
0724 
200 
0007 
4409 


DT AL12 


FATX, 
ATX, 


yo2a3s 


ENTER 
FSTEP 
OCA 
TAO 
AND 
OCA 
LOADBI 


APBO 
LOADOP) 


TAD 

SMA CLA 
JMP 
LOADB} 


DCA 
JMS 
JMP 
TAD 
STORB 
JMP 


PAGE 


6eAPRe72 


AMSW 
PIR 
(7 
ALSW 
XZADR 


OREG 


COMREG 


+6 
FACFR 


SHREG 
SETSTS 
ATX4 
ACEXP 


ATX2 


114107 PAGE 63 


ENTER ATX 

/STEP TO STATE 1 
so TO A MSW 

/GET INSTRUCTION 


/FUR9ei1 TO ALSW 
4X8 ADOR TO B 


/A PLUS 8 70 0 
4/0 TO OP ABOR 


/GET COMMAND REG 
/FLOATING POINT? 

/YES _ 
/NO@FAC FRAC TO B 


4@ TO SHIFT CNTR 
/SET PROG STATE 83 
/GO0 TQ STATE 4 

/Fac EXP TQ 8 LSw 
/SIGN EXTEND TO B8MSW 
/GO TO STATE 2 


I 4 


7 FPP FLOWS 


44092 
4404 
4442 
4423 
4494 
4495 
44A6 
4407 
4442 
4444 
4442 
44643 
4414 
4445 
4416 
4447 
4420 
4421 
4422 
4423 
4424 


4425 
4426 
4427 
443¢ 
4434 
4432 
4433 
4434 
4435 
4436 
4437 
4440 
4444 
4442 
4443 


4562 
1377 
4522 
4577 
1923 
3776! 
4545 
2022 
1222 
7742 
7949 
3775/ 
1377 
3231 
3932 
4775! 
7650 
5224 
4576 
7419 
45977 


4562 
14022 
7782 
5234 
3036 
3037 
5236 
4545 
9033 
4543 
0236 
4523 
5244 
3776! 
5244 


DPALL2 


ATX2, 


ATXS, 


V283 


FSTEP 
TAD 
STORA 
AMBO 
TAD 
DCA 
LOADBI 


TAD 
SPA CLA 
CMA 
OCA 
TAD 
DCA 
DCA 
TAD 


BeAPRaFe2 


(27 


OL SW 
SHREG 
OREG 


OMSW 


FLAGS 
(27 
ALSW 
AMSW 
FLAGS 


SNA CLA 


JMP 
APBO 
SKP 
AMBO 


FSTEP 
T 


LOADB} 
LOaDOl 


SQER 
JMP 
DCA 
JMP 


OMSW 
‘ +4 
BMSW 
BLSW 
a) 
FAGFR 
BREG 


- ATX4 


SHREG 
ATX4 


im, 
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/STEP TO SPATE 2 


/27 76 ALSW « 8 TO AMSW 
7A MINUS B TO 0 


40 TO SHIFT CNTR 
40 70 8 


/GET SIGN OF Q 


/0@ TO SHFT Oo FPF 


/@7 70 ALSW 
/® TQ AMSW 


/SHFT O FFai? 
/NO 
/YESeaA PLUS B TO 0 


/A MINUS B TO 0 


STEP YO SPATE 3 
408284? 

/NO 

/YESeg TO B 


/FAC FRAC ?Q 8 
/B 70 0 


70887 a 
/NO@GO TO STATE 4 
/YESae® TQ SHFT ENR 
/G0 TO STATE 4 











/ FpP FLOWS DIAL{2Z v@I3 
4444 4562 ATX4, FSTEP 
4445 1775! TAD 
4446 7649 SZA CLA 
4447 527g JMP 
4450 1776/ TAD 
4484 7944 CIA 
4482 3776/ OCA 
4483 4526 SHF TB 
4454 1953 TAD 
4485 7749 SPA CLA 
4486 4523 SQEZ 
4487 5265 JMP 
44629 7242 STA 
4464 3222 Oca 
4442 7249 STA 
4463 3023 OCGA 
4464 5274 JMP 
4465 4543 ATX4A, LQADOI 
4466 2836 
4467 7449 SKP 
4479 4525 SHF TO 
44714 4562 ATX5,  FSTEP 
4472 1823 Tad 
4473 3105 DCA 
4474 1823 TAQ 
4475 4536 PUTX 
4476 4567 CMEME 
4477 8774) JMP 


ape 


+ 
a“ / 





6eAPReI2 


FLAGS 


ATX5e4 
SHREG 


SHREG 
FACFR 


ATX44A 
OMSW 
OLSW 


ATX5 
BREG 


OL SW 
EMEM 
OLSW 


FETCH 


44127 PAGE 65 


/STEP TO STATE 4 
GET SHIFT O FF 
/SHIFT QO FF =1? 
YES 


/NEGATE SHYFT CNTR FOR [S82 


SHIFT B UNTIL S.C #2 
/GET FAC FRACTION | 

/O # @ & FAC FRAG NEG ? 
70 8 @ ? 

JNO ew B TO QO 


/LOGICAL 4 TO OMSW 


/LOGICAL 4 TO OLSW 
/GO TO STAVE 5 
/B TO 0 (SPATE 404) 


/SHIFT O UNTIL SiC’ eo 


/STEP TO STATE 5. 
/SIMULATE ENBRK USING 
/PROGRAM MEMORY 


/PUT OLSW YN PROG INDEX REG 
/GOMPARE MEMORY 
7GO0 TO FETCH 


i a a ee re 





r 


/ FPP FLOWS 


4522 
pa age 
$522 
4548 
454 
4545 
4586 
4527 
4519 
4544 
4512 


4543 
4544 
4545 
45146 
4547 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4532 
4534 
4532 
4533 
4534 
4535 
4536 


4563 
4562 
3230 
125 
4373 
$831 
4545 
2276 
4576 
4542 
8022 


4562 
4905 
G373 
4372 
3900 
1402 
4594 
4543 
9036 
3776! 
1002 
7740 
5334 
4445 
3252 
1252 
3945 
7240 
3794! 
877g! 


QTALa2 


EXT A 
XTAL, 


XTA2, 


VO8S 


ENTE 
FSTE 
NCA 
TAD 
ANO 
DCA 


R 
p 


LOADB) 


APBO 
LOAD 


OP} 


STEP 


TAQ 
AND 
TAQ 
DCA 
TAD 


I 


STORB 
LOADO) 


OCA 
TAD 
SPA 


Cla 


belAPRe72 


AMSW 
PIR 
7 
ALSW 
XADR 


OREG 


PUR 
(7 
(X28 
Th 
Ta 


BREG 


SHREG 
COMREG 


3 
C27 

ACEXP 
ACEXP 
MOLSW 


MOPLAG 
OEP 





Milli, 
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AENTER XTA 
/STEP TO SPATE 1 
/® TQ AMSW 
/GET INSTRUCTION 


/FYRGeit TO ALSW 
/X@ ADOR TO B 


/A PLUS B TO Q 
/@ TO OP ABOR 


/STEP TQ STATE 2 
/GET INSTRUCTION 


/COMPUTE INDEX REG ADOR 

/GET PROG YNDEX REG INSTEAD 

/QF OUTBRK 

/MB TQ BLSW » SJEN EXTEND TO BMSW 
48 70 0 


/@ TO SHIF? COUNTER 

/GET COMMAND REGISTER 

7d, PF, MOOR 

/YES @ LEAVE * ENPONEN? ALONE 


/@7 TQ FAC EXP 


sFaC EXP To MQ LSW 

fi 70 Bee Ar eee » Sue FLAG 
sFOR USE } Pos 

/GO TO DEPaSsiT 








47 pe FLOWS 


4337 
4542 
45414 
4542 
4543 
4544 
4545 
4546 
4547 
4552 
4551 
45532 
4553 
4554 
4555 
4556 
45537 
4542 


4566 
4567 
4570 
45714 
4572 
4573 
4574 
4575 
4576 
4577 





4563 
4562 
1235 
2367 
7110 
7042 
3031 
2930 
4545 
2076 
4576 
4542 
2222 
7240 
3222 
7049 
3923 
5766! 


4690 
397g 
2282 
737 
02008 
0907 
4261 
9726 
0724 
8927 
4692 


NTALL2 VaGs 


JXNG 
JXNG, 


ENTER 
FSTEP 
TAD 

AND 

CLL RAR 
RFR 

DGA 

BCA 
LOADBI 


APBO 
LOQADOP) 


CMA 
OCA 
CMA 
DCA 
JMP 


PAGE 


Be APRo72 


PIR 
(78 


ALSW 
AMSW 
XBADR 


OREG 


OMSwW 


OLSW 
JXN2 


11127 PAGE 67 


ZENTER JXN 

ASTEP TO SPATE 1 
/GET INSTRUCTION 
/JEXTRACT BITS 6e8& 
/FTR6e8 TO ALSW 
7X¥® ADDRESS TO B 
fA PLUS B TO @ 

40 TO OP ABDOR 


/LOGICAL 4 TO 0 


a 
} 


ow 
\ ty 





aati, nana sent OE A 


~ 


4690 
464 
46A2 
4683 
4604 
4625 
4626 
4607 
4618 
4611 
4612 
4613 
4614 
4615 
4616: 
4617 
4620 
4621 
4622 


4623 
4624 
4625 
4626 
4627 
4632 
4631 
4632 
4633 
4634: 
4635: 
4636: 


4637 


/ FPP FLOWS 


4562 
1005 
A377 
7642 
5213 
4556 
3031 
3030 
4543 
8030 
5217 
4559 
4556 
7659 
4579 
4523 
5223 
4552 
5237 


4562 
4537 
3231 
1085 
0376 
3030 
4543 
8030 
4542 
0022 
4544 
0070. 


57754 


DTAwte 


JXN2, 


JXN2A, 


JXNS, 


V2 


STEP 
TAD 
AND 


SZA CLA 


JMP 
GETX 
DCA 
OCA 


LOADQ} 


JMP 
INCX 
GETX 


SNA CLA 


CLRO 
SOEZ 
JMP 
INCPC 
JMP 


FSTEP 
GETPC 
DCA 
TAD 
AND 
DCA 


LOADO) 
LOADOP) 
LQADPC) 


JXNEND, JMP 


6eAPRa72 


PIR 
(1292 


JXN2A 
ALSW 


AMSW 
AREG 


JXNS 
JXNEND 


ALSW 
PIR 
(? 
AMSW 
AREG 


OREG 
OPADR 


FEPCH 
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/STEP TO SPATE 2 

/AGET INSTRUCTION 
/EXTRACT BIT 5 

/FIR 534? 

/YES — 
/NO#OUTBRK USING OP ADBR 
/MB TO ALSW 

/@ TO AmMSW 

4A 9 0 


“REQUEST INC BRK (XaXe]7) 
GET X REG 

/OVERFLOW? - 

AYES © LOGICAL @ TO 6 
/SKIP IF Os@ 

/Q NOF EQUAL @ 

INC FPE 

GO TO FETRH 


/STEP TO SPATE 3 

/QUTBRK USING FPE 
7MB TO ALSW 

/GET INSTRUCTION 


/FIR9si1 TO AMSW 
fA TO 0 


/Q TO OP ABDR 
/QP ADOR fo FRE : 


GO TO FETCH 

















/ FPP FLOWS 


4642 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4632 


4651 
4652 
4653 
4634 
4655 
4656 
4637 
4662 
4641 


4662 
4643 
4664 
4665 
4666 
4667 


4670 
4674 
4672 
4673 
4674 
4675 
4676 
4677 





4563 
4562 
4545 
8074 
4543 
0036 
4542 
8822 
4554 


4562 
4537 
S831 
1085 
8376 
3832 
4532 
4543 
8830 


4562 
1066 
0376 
1374 
3106 
4554 


4562 
1067 
3127 
4542 
8822 
4541 
On70 
87751 


DTALs2 


JSR, 
WSR1, 


JSR2, 


JSRS, 


JSR4, 


V283 


ENTER 
FSTEP 
LOQADB} 


LOADO} 
LQADOP) 
INCOP 
FSTEP 
GETPC 
OCA 

TAD 

ANO 

DCA 


INCPC 
LQADO} 


A a 
LQaD0P) 
LQADPC) 
JMP 


BeAPRe72 


PBASE 
BREG 
OREG 


ALSW 
PTR 
(7 
AMSW 


AREG 


PBC 
7 
(1030 
MMEM 


PRACe4 
LMEM 
OREG 
OPADR 


FETCH 


44127 PAGE 69 


/ENTER ySR 

/STEP TO STATE 1 
/P@ ADOR Fa 8 

4B 70 0 

40 TO OP AGBDR 
INC QP ADBR 
/STEP TO SPATE 2 
/OUTBRK USING FPE 
/MB TO ALSW 

/GET INSTRUCTION 
/FIR9eii TO AMSW 


JUNC FPC 
/&4 70 0 


STEP TQ STATE 3 
/GET FPC FLELO BIfs 
/SEE JMK STATE Sud 
/SIMULATE YNBRK 
/INC OP AQGR 


/STEP TO STATE 4 
SIMULATE YNBRK 


40 70 OP ABOR 
ZOP ADR TQ FPC 
/G0 TO FETEH 





am 

/ FPP FLOWS JIALL@ vases 
4779 4563 USA, ENTER 
47014 4562 JSA2, FSTEP 
4792 4557 GETPC 
4743 3231 NCA 
4794 1205 TAD 
4745 2376 ANO 
47%6 383¢ OCA 
4787 4552 INCPC 
4740 4543 LOADO} 
4741 28930 
4742 4542 LOADOP] 
4743 4822 
4744 4562 JSAS, FSTEP 
4745 1866 TAQ 
4716 8376 AND 
4747 1374 TAD 
4728 3126 DCA 
4724 4554 INCOP 
4722 4562 JSA4, FSTEP 
4723 1067 TAD 
4724 3497 QCA 
4725 4554 INCOP 
4726 4544 LOADPC| 
4727 @07¢ 
4730 5775! JMP 


6eAPRe7F2 


ALSW 
PIR 
(7 
AMSW 


AREG 
OREG 


PFPC 
(7 
(1030 
MMEM 


PFPC#4 
LMEM 


OPADR 
FETCH 
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“ENTER JSA 
/STEP TO STATE 2 
/QUTBRK USING FPC 
/MB TQ ALSW 
/GET INSTRUCTION 


/FIR9et4 TO AMSW 
AING FPE 
Ja TO 0 


40 TO OP ABDR 


/STEP YO SPATE 3 

/SEE JSB SPATE Sud 

/FPC F,8, 

/jAw 4233 © JUMP ALWAYS 
JSIMULATE YNBRK *O PROG MEMORY 
ZINC OP ADGR 


ASTEP TO SPATE 4 

/GET FPEC 

ASIMULATE YNBRK 

/INC OP ADOR (STATE 422) 
/OP AOOR TO FRE 


/GO TO FETEH 

















/ FPP FLOWS 


4731 
4732 
4733 


4734 
$735 
4736 


4737 
4749 
4744 


4742 
4748 
4744 


4745 
4746 
4747 


4750 
47314 
4752 


47338 
4754 
$735 
4736 
4737 
4769 
4761 
4762 
4768 


4792 
4773 
47794 
4795 
4776 
47997 





4534 
5773! 
5772! 


4532 
5792! 
5773/ 


4533 
57701 
5773! 


4534 
5772! 
B773/ 


4532 
5773 
S772 


4533 
5773! 
B7921 


4563 
4362 
4557 
3975 


5080 


OTaLi?2 


JEO, 


JGE, 


JLEs 


JNE, 


Jhte 


JGT, 


SET8, 
SETBd, 


V28S 


SAE2 
JMP 
JMP 


SALzZ 
JMP 
JMP 


SaG2 
JMP 
JMP 


SAEZ 
JMP 
JMP 


SAL2 
JMP 
JMP 


SAGZ 


JMP 
JMP 


ENTER 
FSTeP 
GETPC 
DCA 
TAD 
ANO 
DCA 
INCPC 
JMP 


PAGE 


6efPRe72 


JFALSE 
JTRUE 


JTRUE 
JF ALSE 


JTRUE 
JFALSE 


JTRUE 
JFALSE 


JFALSE 
JTRUE 


JFALSE 
JFRUE 


PBASEst{ 


PIR 
(7 
PBASE 


FETCH 
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/FAC#B? 
/NO 
/YES 


/FAC GT OR2Q? 
/YES 
/NO 


/FAC LT OR: 
‘YES ii 
/NO 


/FAC#O? 
/NOQ 
/YES 


/FAC LT 8? 
/NO 
/YES 


FAC GT 27 
/NO 
/YES 


ZENTER SET BASE 
/STEP TO STATE 4 
/QUTBRK USING PPE 
7MB TO P@ ADOR 
GET INSTRUCTION 


/FIRGeLs TO PO PB’ 
Adria y TO Po F.B. 
760 TO FET@R 





/ FPP FLOWS 


3A 
50241 
O2%2 
2283 
3024 


5005 
5026 
5007 
5910 
5044 
59412 
5913 
BOs 4 
5045 
5246 
5047 
5920 
5924 
5g22 
5923 


5224 


3225 
3026 


5027 
3939 
3931 
5232 
5933 
5Q34 
3935 
5236 
5037 
5242 
5Q44 


7320 
1222 
7720 
5224 
5235 


4563 
4562 
4527 
4557 
O34 
1205 
2377 
3938 
4543 
A039 
4542 
022 
4544 
ge70 
5776! 


4363 


DAL 


JAM 


JTRUE, 
JTRUEL, 


JFALSE, 


JAC, 
JACI, 


V2as 


CLA CLL 


TAD 


SMA CLA 


JMP 
JMP 


ENTER 
FSTEP 


SEPMEN 


GETPC 
OCA 
TAD 
ANO 
OCA 


LOADOI 
LOADOP| 
LOADPCY 


JMP 


ENTER 
INCPC 
JMP 


ENTER 
STEP 


LOADBI 
LOADO! 
LOADOP; 
LOADPC! 


JMP 


6eAPRo72 


OMSW 


JFALSE 


JTRUE 


ALSW 
PIR 
(7 
AMSW 
AREG 
OREG 
OPADR 


FETCH 


FETCH 


FAGFR 
BREG 
OREG 
OPADR 
FETCH 
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/GET O SIGN 
/1S 0 NEG 
/NO 

/YES 


/ENTER JMP CONDITION TRUE 
STEP TO SPATE 1 

/i TO EPM PNABLE 

/QUTBRK USING PFE 

/MB TO ALSW 

/GET INS?PRUCTION 


/FIRGel4 TO AMSW 
/& T0 0 


/0Q TO OP ASOR 
/OP ADDR Toa FRE 
/GO 70 FETeH 
/ENTER JMP CONDITION FALSE 
INC FPC 

/GO TO FET@H 
/JENTER yac 

/STEP TO STATE 1 
/PFAC FRAC f0 B 
/eTo 0 

/0 TO OP aBor 
/OP ADOR To FPE 


/GO0 TO FETCH 

















/ FPP FLOWS OLAL42 VO8s 6eAPRe72 41187 PAGE 78 


5942 4543 ESTF, ENTER /JENTER SYF 

5343 4532 SEPM /EPM MODE ? 

5244 7612 SKP CLA JNO = @ TO ROUND FLIPeFLOP 
6245 7242 STA “YES «© 4 FO ROUNS PLIPeFLOP 
5246 3321 DCA RNOFF /2 OR 4 TO ROUND PLIPoFLOP 
5247 39233 OCA EPM /CLEAR EPM MODE 

5330 1922 TAD COMREG 

5251 2375 AND (3777 /RESEY 0,P', MODE FF 
Sg82 3222 OCA COMREG 

$253 1321 TAD RNOFF /GEY ROUND FF 

5934 765g SNA CLA AIS If SET ? 

5235 3776! JMP FEYCH JNO = GO TO FETCH 

5256 S320 JMP FNORM /YES e GO 70 NORMALIZE 
5937 4563 PSTD, FNTER /ENTER S70 

5269 1922 TAD _ COMREG 

5961 7184 CLL RAL 

59462 7130 STL RAR /SET 0,P, MODE FF 

5963 3082 OCA COMREG 

5964 32383 OCA EPM /CLEAR EPM MODE 

5265 5776! JMP PETCH /GO TO FET@H 

5G66 4563 PNEG, ENTER /ENTER NEG 

S967 4562 NEGi, PSTEP STEP TO SPATE 1 

5a72 4527 SEPMEN /SET EPM ENABLE 

5071 4545 LQAQB) FAGCFR Pac 70 8 

53g72 88383 

Sg73 4574 CLRA JQ TO A 

5294 4597 AMBO /AeB TO 0 

5275 4546 LOADAGs OREG 40 TO Fae 

5276 0822 | 
5977 3776! JMP FETCH /AS THE FLOWS BUF FAKES LESS CORE 
5190 4563 FNORM, ENTER JENTER FNOQRM 

5181 4562 NORMZ, FSTEP STEP TO STATE 1 

53192 4527 SEPMEN : 44 TO EPM ENABLE 

5193 4545 LOAODB) FAGFR /FaC FRAC #0 B 

5104 8953 ; 

5195 1321 TAD RNOFF GET ROUND FLIPorLOP 
5496 7649 SZA CLA /ROUND F/F a 1 ? 

5197 1855 TAO ACLSW4 /YES @ GET Aca24 

51440 8374 AND (4900 /DELETE OTHER AC BITS 
5111 32843 OCA BEXT /AC24 TO B EX? 

51442 3322 OCA RNOFF /CLEAR ROUND FLIPePLOP 
51413 4543 LQADO! BREG 4B T0 0 

51444 A036 

5145 1052 TAD ACEXP /FAC EXP Toe MOLSW 

51446 3045 OCA MQLSW 

5447 3773! DCA SHREG /@ TO SHIFT CNTR 

5190 5772! UMP DEP /GO TO DEPAS(T 


5121 2000 RNOFF, @ /ROUND FLIP*FLOP FOR START F 


a 





\ 





? 
e 
y 


t 


/ FP FLOWS 


5122 
54273 
542764 
51425 
5426 
5127 
51430 
54341 
5132 
5133 
5434 
5435 


5136 
5137 
5440 
5444 
$442 
5443 


5144 
5145 
5146 
3447 
3150 
5451 
5132 
5133 


5484 
5455 
5156 
5497 
5160 
5461 
$162 
5163 
5164 
5145 


3166 
3167 
5170 
5471 
51472 
5173 
54174 
5475 
5176 
54177 


4563 
4562 
4774! 
2345 
ALI 
1779! 
3980 
7242 
377Q/ 
1767! 
366 
3767! 


4562 
1202 
3779! 
6555 
7020 
5776! 


4563 
4574 
4546 
O93¢e 
1982 
77288 
3952 
5776! 


4563 
4562 
4557 
397 
14005 
0377 
3276 
4552 
4549 
5776) 


0377 
8731 
7732 
6703 
2052 
M724 
4090 
3777 
1261 
A087 


O1ALi2 


FPAUSE, 


PAUSS, 


PAUS(, 


FCLA, 


SETX, 
SETX®, 


V283 


ENTER 
FSTEP 
JMS 
TPAUSE 
8 

TAD 
OCA 
STA 
DCA 
TAD 
ANDO 
DCA 


FSTEP 
TAO 
DCA 
FPST 
NOP 
JMP 


ENTER 
CLRA 


LOADAG! 


TAO 


SMA CLA 


OCA 
JMP 


ENTER 


6wAPRa72 


TYP 
STEPSW 
Ti 
STEPSW 
CSTATE 


(377 
CSTATE 


Td 
STEPSW 


FEFCH 


AREG 
COMREG 


ACEXP 
FEfCH 


XPAORoZ 
PIR 


> 


(7 
XQADR 


FETCH 


14197 PAGE 74 


/ZENTER PAUSE 
/STEP TO STATE i 
/TYPE FPP PAUSE 


/SAVE SINGLE STEP SWITEH 


/SET SINGLE STEP SW 
/RESET PROG MAJOR STATE 


/WAYT FOR OPERATOR 
/RESTORE SINGLE STEP SWITCH 


/RESTART FRP 
/GO0 70 FETCH 


ZENTER CLA 
8 TO A 
fa 70 Fae 


/GET THE COMMAND REGISTER 
/O,P, MODE ? 
/NO @ CLEAR Fac EXPONENT 
/GO TO FETCH 


/ENTER SET X 
“STEP TO STATE 1 
/OUTBRK USING FPG 
/MB TO X@ ADDR 
/GET INSTRUCTION 


/FIRSeds TO xo FB‘ 
/ING FPC 

SET PROGRAM INDEX REGS 
GO TO FETEH 

















bepd 39Vq 


LEITT 


cLeudveg 


Jove 
S22A 


2t%vic 


O82sg 
SMO"3 ddd / 


= £ 
a 
z 


/ FPP FLOWS 


5209 
524 
5222 
5203 
5294 
5205 
5206 
5287 
5248 
S2ii 
5212 


5243 
5244 
5245 
5246 
5247 
5220 
5221 
5222 


3223 
3224 
5225 
3226 
3227 
5230 


5234 
5232 
3238 
5234 


4363 
4562 
3232 
12985 
0377 
32314 
4545 
2876 
4576 
4542 
8922 


4362 
1085 
8377 
1006 
3882 
14239 
$937 
3Q36 


4562 
4557 
3034 
3030 
4552 
4576 


4562 
4223 
4536 
5776! 


DIAL1@ 


ADDX4, 


ADDX2, 


ADDXS, 


ADDX4, 


VBS 


ENTER 
FSTEP 
NCA 
TAD 
ANO 
OCA 
LOADB} 


APBO 
LOADOP) 


FSTEP 
TAO 
ANO 
TAD 
OCA 
TAD ! 
DCA 
OCA 


FSTEP 
GETPC 
DCA 
DCA 
INCPC 
APBOQ 


FSTEP 
TAD 
PUTX 
MP 


6eAPRe72 


AMSW 
PIR 
7 
ALSH 
XB ADR 


OREG 


PIR 
(7 
PXP 
Th 
Ti 
BLSW 
BMSW 


ALSW 
AMSW 


OLSW 
FETCH 


alin, 


14107 PAGE 75 


JZENTER ADDX 
/STEP TO STATE 4 
/@ TO AMSW 
/GET JNSTRUCTION 


/FIRGel1 FO ALSW 
/X@ ADDR Ta B 


/A PLUS B TO Q 
/0 TO OP ABOR 


/STEP TO STATE 2 


/GET PROGRAM INDEX REG INSTEAD 
/OF OUTBRK USING Of ADDR 


/MB TQ BLSW 
/@ TO &MSW 


/STEP TO STATE 3 
/OUTBRK USING PPC 
78M TO ALSW 

#2 70 AMSW 

/INC PFC 

/k PLUS B f0 0 


ASTEP TO STATE 4 


70 LSW TO X REG 
GQ TO FETCH 




















/ Fep FLOWS 


5235 
5236 
5237 
5242 
5244 
3242 
5243 
5244 
5245 


5246 
3247 
3230 
3254 


5252 
5253 
5234 
5255 
5286 
3257 
5262 


3264 
5262 
5263 
5264 


5265 
3266 
3267 
3270 


5274 
5272 
5273 
5274 
5275 
5276 
5277 


3300 
5384 
5382 
5383 


4563 
4562 
1882 
7712 
3246 
1852 
3405 
4967 
4954 


4562 
1053 
3196 
4554 


4562 
1054 
3107 
4530 
5300 
4775! 
4554 


4562 
1055 
31g 
4554 


45462 
4036 
Sidi 
4554 


4562 
1057 
3412 
4564 
4564 
4564 
4774! 


4564 
4566 
4554 
5776! 


Oy aLs2 


FSTA, 
STAQ, 


STAI, 


STA2, 


STA2O. 


STA2Z, 


STA2Z2, 


STAEND, 


V88S 


ENTER 
FSTEP 
TAD 


SPA CLA 


JMP 
TAD 
DCA 
CMEME 
INCOP 


PSTEP 
TAQ 
Oca 
TNCOP 


PSTEP 
TAD 
QCA 
SEPM 
JMP 
JMS 
INCOP 


PSTEP 
TAD 
DCA 
INCOP 


FSTEP 


FSTEP 
Tad 
DCA 
DECQP 
DECOP 


DECOP 
JMS 


DECOP 
CMEMF 
TNCOP 
JMP 


6aeAPRa%2 


COMREG 
STai 


ACEXP 
EMEM 


ACMSW 
MMEM 


ACLSW 
LMEM 


STAEND 
SEX 


ACLSW1 
L MEMS 


ACLSW2 
LMEM2 


ACLSWS 
LMEMS 


REX 


FETCH 
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/TYPE ENTER FSTA 
/STEP TO MAJOR STATE @ 
/GET COMMAND REGISTER 


-/0, P, MODE ? 


/JYES e GO TO STATE 1 
/INBRK USING OF ADBR 
/FAC EXP TO MB 

/COMPARE MPMORY EXPONENT 
/INC OP ADDR 


/STEP TO MAYOR STATE 4 
/INBRK USING OP ADBR 
/FAC MSW TO MB 

ZINC OF ADOR 


/STEP TO MAYOR STATE 2 
/INBRK USING OF ADBR 

/FAC LSW TO MB 

ZEXTENDED PRECISION mMOBE? 
/NOQ # END OF FSTA 

AYES @ SET TMSC EXECUTE 
/ING OP ADORESS 


/STEP TO TMSC EX SPATE B 
/GEY FAC LS&Wid 

/FAC LSWi TO MB 

7INC OP ADSRESS 


/STEP TO TMSC EX STATE 4 
/GET FAC LSw2 

/FAC LSW2 TO MB 

ZING OP ADBRESS 


/STEP To YMSC EX SPATE 2 
/GET FAC LSW3 
/Fac LSWS TO MB 


/DEC OP ADDRESS 

/@ TO TMSC EXECUTE 

/DEC OP AQBR FOR COMPARE 
/COMPARE MEMORY 


/RESTORE QP ADDR 
/GO0 TO FETCH 


sol 9 pameoveltmiphinulididefeS ASML St Nt ue esatalte a, Unite rote ies pebanetbnllabTnimadaldibldide dace Calla a. Ritch Te Rte al SET SELLE Be Bie Tetepmntr ae Hane need 


t 3 
‘ 


/ FPP FLOWS 


534 
3325 
53546 
5347 
3342 
5311 
5312 
5313 


3314 
5345 
3316 
33147 
5320 
5324 
3322 
3323 
3324 


3325 
5326 
3327 
5339 


5331 
3332 
3333 
3334 


3335 
5336 
5337 
3349 
3344 
3342 
5343 


3344 
5345 
5346 
3347 
5332 
5354 
3352 
5383 


4563 
4542 
1082 
7748 
5314 
4569 
3052 
4554 


4562 
4569 
S832 
4554 
4532 
5344 
4775/ 
4554 
4527 


4562 
4369 
3032 
4554 


4562 
4569 
3033 
4554 


4562 
4569 
3234 
45464 
4564 
45464 
47744 


4562 
4569 
3934 
4543 
9930 
4546 
8922 
5776! 


STALLS = VORS 


FLOA, 
LDA, 


LOA, 


LOALG, 


LOALLs 


LOAL2, 


LOA2, 


ENTER 
FSTEP 


FSTEP 
GETOP 
DGA 
TNCOP 
SEPM 
JMP 
JMS 
TNCOP 


SEPMEN 


FSTEP 
GETOP 
OCA 

INCOP 


FSTEP 
GE TOP 
OCA 

NCOP 


PSTEP 
GETOP 
QCA 

OR COP 
DECOR 
DECOP 
JMS 


FSTEP 
GE TOP 
OCA 


LOAQDO) 
LOADAC) 


JMP 


6eAPRe72 


COMREG 
LOAL 
ACEXP 


AMSW 


LOa2 


ALSWi 


ALSW?2 


ALSWS 


REX 


ALSW 
AREG 


OREG 
FETCH 
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/TYPE ENTER LDA 


ASTEP TO STATE G 


/GET COMMAND REGISTER 


/0, es MOOF ? 


/YES e GO TQ STATE 1 


/OUTBRK USENG OP 
/MB TO FAC EXP 


ABDR 


“STEP TO MAJOR STATE 2 


/OUTBRK USENG OP 


ABOR 


ZEXTENDED PRECISION MODE? 


JNO GO TO STATE 


/4 TO TMSG EXECUTE 


ZING OP ADBRESS 
/4 TO EPM ENABLE 


/STEP TO TMSC EX 
/OUTBRK USING OP 
JMB TO ALSW4 

/INC OF aDSRESS 


/STEP TO TMSE EX 
/QUTBRK USING OP 
/MB TO ALSW2 
/INC OP ADBRESS 


/STEP TO TMSC EX 
/QUTBRK USING OP 
MB TO ALSWS 
/DEC OF ADDRESS 
/DEC OP AQDGRESS 
/DEC OF ADBRESS 


STATE Q 
ABDRESS 


SPave 2 
ABORESS 


STATE 2 
ABORESS 


#2 TO TMSG EXECUTE 


/STEP TO MAYOR STATE 2 


/QUTBRK USING OP 
JA 70 0 
/0 TO FAC FRAC 


ABDR 
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a 


ag TET ce, 


a 





/ Fp? FLOWS 


53564 
5355 
5356 
5337 
53462 
5361 
3362 
5363 


3372 
8373 
3374 
8375 
5376 
5377 


4563 
7324 
3023 
1202 
2373 
3202 
4772! 
5776! 


7367 
3797 
7507 
7500 
1264 
8007 
5492 


pIALG@ Vaeas 


FSTE, 


ENTER 
CLA STL 
DCA 

TAQ 

AND 

DCA 

JMS 

JMP 


PAGE 


6eAPRa22 


RAL 
EPM 
COMREG 
(3977 
COMREG 
TITLE 
FETCH 
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/SEY EPM MODE 

/ACHOOO4 

74 70 EPM 

/GET THE COMMAND REGISTER 
/DELETE DLP, BIT 

7RESTORE TQE COMMAND REGISTER 
/SYNG THE O REGISTERS 

/G0 TO FETCH 


x 


* 


ae 


i i hae Ep IE ol NSE Pig al et pa Se oe 


= 


/ FPP FLOWS 


5400 
5494 
5402 
5403 
5404 
5405 
5406 


3407 
3442 
5444 
3442 
3443 
5444 
5445 


5446 
3447 
3420 
5424 
5422 
8423 
5424 


5425 
5426 
8427 
5430 
3434 
3492 
8433 
5434 
5438 
5436 
5437 
5440 
5444 


2982 
7582 
2067 
7412 
2066 
7082 
5602 


3980 
73282 
2873 
7449 
2072 
7280 
5607 


LT: 
7300 
2074 
7442 
2070 
7900 
5616 


a0a0 
7289 
6565 
3264 
14261 
7044 
1873 
7680 
5625 
4225 
4777! 
9905 
5625 


Olah.i2a VaIs 


/ MINE ROUTINES 


INC2, 


INCS, 


INC4, 


APTC, 


a 
CLA Cob 
1$z 

SKP 

1$z 

NOP 

JMP } 


CLA ChL 
1SzZ 
SKP 

1$z 

NOP 

JMP 


baaPReF%2 


(TRS) 


PFACeL 
PP PC 
INC2 


PAPT#l 
PAPY 
INCS 


OPADR+4 
OPADR 
INE4 


SAVAPT 
SAVAPT 


PAPT#3 


APC 
APtC 
ERR 

2005 
APC 


sili, 


41187 Page 79 


/UNCREMENT FPPC 
/FPC ADDR 

JFPC FIELO 
/RETURN 
/TNCREMENT ADRS 
/APT ADDRESS 
ZAPT FIELO 
ARETURN 


/INGREMENT OP ADOR 
7QP ADDR 

/OP FLO 

ARE TURN 


/COMPARE APT ABORESS 


/GET APT ABOR FROM FPP 
/SAVE FOR ERROR REPORT 
/RESTORE aé@ 


/COMPARE WYTH PROGRAM ADDR 
/APT ADDR 6K? 

/RETURN 

/GET RETURN ADBRESS 

/TYPE ERROR BATA 

/ADORS ERROR COOF 

/RETURN TO MAIN PROGRAM 

















/ MINE ROUTINES 


5442 
5443 
5444 
5445 
5446 
5447 
545g 
54514 
5452 


5453 


5434 
34535 
5456 
3437 
5469 


54614 


5462 
5463 
5464 
3465 
B466 
5467 
5499 
5471 
3472 
5473 
5474 
3475 
5496 
B4?7 
5582 
5504 
3582 
5503 
5504 


5595 
5596 
3587 


5510 
5544 
5512 
5513 
3544 
5545 


(TRS) 


2090 
1022 
3261 
1022 
7004 
7110 
3022 
4523 
5235 
1261 
7782 
2242 
1261 
3822 
5642 


2080 


1776! 
B375 
4374 
7459 
S319 
1373 
7450 
5276 
1372 
763¢ 
5311 
5973! 
1395 
377g! 
1386 
3767! 
1397 
3766/ 
5779) 


6441 
9701 
7380 


1365 
1364 
6212 
6241 
5715 
1502 


SPECFL, 


SAVAPT, 
Enea ee 


ERG. 
ER2, 
ERS, 


DTAM, 
PS8M, 


DIALI@ 


CL RAR 


SNA ChA 


VOa3 


OMSW 
SAVAPT 
OMSW 
OMSW 


a3 


-SAVAPT 


SPECFL, 
SAVAPT 
OMSW 

SPECFL 


ASECH 
(77 
(os 


OT AM 
(ef 


of 
(odd 


(73 
(7605 
10 

18 
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/SPECTAL QVERFLOW GONDITION 
/GET O MSW 

/SAVE IT 

/GET 0 MSW AGAIN 


/DELETE THE SIGN BIT 
/PUT QTHER BITS BAEK 
/1S 098? 
JNO © OVERFLOW 18 YMPOSSIBLE 
/GET ORIGINAL OMSW 
/OOES Oa4aagggeg, |, 090? 
AND e RETURNSL 
GET ORIGINAL OMSW 
RESTORE O REG 
/REPURN 


/GET ASCII} CHARACTER 
/STRIP TO 6 BITS 


/CNTRE C ? 
/YES » RETURN TO DTA MONITOR 


/ONTREL DO ? 
/YES e SETUP f0 READ JN OAL 


/CNTRL P 
/YES S Rctans #0 PSe8 MONITOR 
7ILLEGAL INPUT 
/MOVE DIAL LOADER FO 
44045 FOR faPE ReAp 
ZINTO PROPER LOCATION 
SAND alto START 


/READ OFAL TAPE ANB EXECUTE 
/LING 


ARCG 
/BLOCK NUMBER 


Seg ONS 


o™ 


Nie i 


git. | is 
f 


! 


/ MINE ROUTINES ¢7R3) DIALA@ VvIBs 6eAPRe?2 44107 Pace af ; 


/CHECK MAJOR STATE REGISTER 


sat oa 


5546 7222 MSTAYE, @ /GET PROGRAM STATE GENERATOR 
5517 7322 CLA Chk 
5522 1763/ TAD CSTATE 
5521 2362 AND (79774 /OELETE BI?S 10 8 f4 
$522 3763! DCA MT¢ ASAVE FOR ERROR 
5523 6562 RSTATE /READ STATE FROM FPP 
S524 2362 AND (7774 DELETE BL*S 19 28 Td 
5525 3769! DCA MT2 /SAVE FOR FRROR 
559% 1760! TAD MT? 
5527 7044 CJA 
S530 1761! TAD MT¢ /COMPARE WITH PROGRAM STATE 
5534 7652 SNA CLA /}S MAJOR STATE OK? 
S532 2316 {Sz MSfATE /YES@RETURNGS 
S533 5716 JMP { MSTATE 
5534 agag ToPG, @ /,OA0 THE FPC 
‘5535 72280 CLA . 
S536 1334 TAD Toec AGET RETURN of 
5537 4757! JMS LOAD 
5549 9866 PFPC /ADDRESS OF FPC 
5541 000 TOAC, @ /L0A0 THE Pac 
5542 72802 CLA 
3543) 1341 TAD TOAC /GET RETURN|4 
5544 «64757! JMS LOAD ; 
5545 8953 PACFR /ADOR OF FAG 
‘5587 5636 
S560 8736 
3564 8735 
3562 7774 
S563 A73a 
5564 7685 
5565 8273 
3566 4917 
5567 4816 
5592 4915 
5571 2432 
5592 7764 
5573 7777 
5594 7775 
5575 ag77 
5576 2351 
5577 $787 
5600 PAGE 














/ 


MINT RQUTINES 


3682 
FOAL 
56M2 
5633 
3684 
5685 
3686 
3687 
5610 
5644 


3612 
5613 
5614 
36415 
5616 


3617 
3628 
3624 
3622 
3623 


3624 


(TRS) 


%Q2V0 
7220 
1280 
4236 
G822 
S282 
7280 
1225 
4236 
2830 


e000 
7200 
1242 
4236 
0036 


0822 
7200 
1247 
4236 
0869 


2080 
7208 
1224 
4236 
B44 


6800 
7202 
1231 
4236 
2970 


TOO, 


TOA, 


TOB8, 


TOTMP, 


TOMQ, 


TOOP, 


DIAL12 


2 
CLA 
TAD 
JMS 
OMSW 
g 
CLA 
TAD 
JMS 
AMSW 


g 
CLA 
TAD 
JMS 
BMSW 


V28S 


T00 
oF YS) 


TOA 
LOAD 


TOB 
LOAD 


TOTMP 
LOad 


TOMO 
LOAD 


TOOP 
LOAD 


GeAPRe72 14127 Pace 83 


/LO4D THE OREG 
/GET RETURN@#G 


/ADOR OF Q 
/LOA0 THE A REE 


/GET RETURN@4d 
ADDR OF A 
/LOAQ THE A REG 
AGET RETURNe4Y 
/ABDOR OF B 


/ADOR OF MQ 
7L0AD OP ABOR 
/GET RETURN] 
7ADOR OF QP ADBR 


we ™. 


: 
ap 





(iad Kade soeincatantatianarratnetraiieyeninnaltineeemimen bi oe wt 


wert mnt eceencceitde os ateetllacmeetdanssdtvenweslintennestinee—ierrrtibind mith iE § teal dh 


eee S BERE Tf tae 


/ 


é ; ' 
MINE ROUTINES 


5636 
5637 
5642 
5641 
5642 
5643 
5644 
3645 
5646 
5647 
5652 
5654 
3652 
S653 
5654 
5655 
5656 
5637 
5649 
5664 
56462 
3663 
5664 
5665 
5666 
5647 
5479 
3674 
5672 
5673 
5674 
$4675 
5676 
5677 
5700 
5784 
5702 
573 
3704 
5705 
5706 
5787 
5712 
5741 
5712 
5743 
5744 
5745 
5746 
57417 
5722 


3724 


(TRS) 


2290 
3992 
3524 
1422 
7044 
1377 
7742 
5257 
1636 
7041 
1377 
7712 
5237 
7249 
3321 
1923 
7720 
1376 
1375 
3Oa4 
7240 
1492 
3ei2 
2880 


LOA, 


SHORT, 


LEXT, 


LREG, 


OTALL@ VOSS 


CLA 


CLA 


CLA 


aa O-@ 


Cla 


CLA 


CLA 


EPM 
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/SAVE RETURN ADDRESS 
/CLEAR LONG REG FLAG 
/GET "FROM" REG 


/COMPARE WITH SHOR? PEG ADDR 
/ARYTHMETIC REG? 

/NO 

AGET "TO" REG 


/COMPARE WITH SHOR? REG ADDR 
/ARUTHMETIC REC? 
/NO 


SET LONG REG FLAG 

/GET EPM CONTROL REGISTER 
7EPM ENABLE © 4 ? 

/NO © MOVE 2 WORDS 

7YES » MOVE 5 WORDS 

/SET WORD COUNT 


/GET "FROM" REG 
JING RETURN 
/GET "TO" REC 


/GET "FROM" DATA 

/STORE IN "TON REG 

7ING WORD COUNT 

/MORE TO GO ; 

/GET LONG REG FLAG 
ZARITHMETIC REG? 

/NO © FINISHED = 
/GET EPM CONTROL REGISTER 
7EPM ENABLE # & 9 

/YES © CLEAR EXT 


/GET "TO" REG 
/1S UF THE 0 REG? 
/YES @ GET "FROM" EXT 


/LOAD OR CLEAR EXT 
ARE TURN 














/ 


MINE ROVTINES 


5722 
5723 
5724 
5725 
5726 
5727 
5739 
5734 
5732 
5733 
5734 
5735 
5736 
3737 
5740 
S744 
5742 
5743 
5744 
5745 
5746 
5747 
578g 
5754 
5782 
5783 
5754 
5755 
5756 
5757 
5760 
5764 
5762 


5764 
5765 
5766 
5767 
57790 
5794 
5792 
57793 
5774 
5995 
5776 
5979 





(TR3)} 


DIALI@ V8BS 


COMPO, 2 


JMP 
COMPOR, JMP 


PAGE 


CLA 


(SAVOMad 
12 


12 


12 
(482 


10 
(200 


12 
(120 


42 
(QREGed 
148 


(SAVOMed 
44 


(3 
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/COMPARE FPP Q REG 


/GEY ADDR OF SAVE BUFFER 
/STQRE IN AUTO INDEX REG 
/GET MSW 
ASTORE IN BUFFER 
/GET LSW 


JREAD OLSW? 
AREAD OLSW2 


/READ OLSWS 
/GET ADORESS OF PROGRAM O REG 
/GET ABORESS OF FPP 0 REG 


/EPM MODE? 

/NO = 2 WORD REGISTER 
/YES » 3 WORD REGISTER 
/SAVE WORD COUNT 

/GET PROGRAM DATA 


/GOMPARE WITH FPP BATA 
/}S FPP DATA CORRECT? 
/NO © © REG ERROR 
/FINISHED? 

/NO 


aaa 


\ f 
Ne ee 


4 esata tacts tes Stents. 





/ 


MIND ROUTINES 


6220 
6094 
63%2 
60283 


684 
68a5 
6026 
62997 
6810 


6R41 
6942 
6048 
6944 
6445 
6016 
6847 
6222 
6224 
6822 
6823 
6924 


6925 
6926 
$927 
6932 
6034 
6932 
6a3s 
6334 
6935 
6036 


6937 
6g40 
6044 
6942 
6943 
6944 
6945 
6046 
6947 
6950 


(TRS) 


1777! 
4776! 
AQ24 

5775! 


2080 
2088 
2982 
BEAD 
B22B 


S280 
1072 
7484 
7986 
1874 
7404 
7026 
1276 
7484 
7986 
1266 
56414 


8080 
7100 
7540 
7420 
3034 
7438 
7249 
3030 
3235 
5625 


2292 
7480 
7510 
7120 
3237 
7432 
7240 
3036 
3043 
5637 


QRERR, 


SAVO, 


APTPAC, 


STRA, 


STRB, 


DTALLO 


TAD 
WMS 
ERROR 
JMP 


& 


i Be Be: x | 


TAD 
RAL CLL 


VO88S 


7682 
ERR 
2224 
COMPOR 


OPADR 


PBASE 


XBAOR 


PFPC 
APTPAC 


ALSW 


AMSW 
AEXT 
STRA 


BLSW 


BMSW 
BEXT 
STRB 
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/GET P,C, 

4/60 TO ERROR ROUTINE 
/ERROR CODE 

/RETURN 


/SAVE FPP 6 REG HERE 


/FIELD BITS OF OP ADDR 


/FIELO BITS OF Po ADDR 


/FIELO BITS OF X@ ADOR 


/FIELO BITS OF FPC 
/RETURN 


/CHECK SIGN | 
ASAVE SIGN IN LINK 
/STORE LSW 

/WAS LSW MINUS 7? 
SYES » MSW s 7979 


/CLEAR EX? 
/RETURN 


/CHECK SIGN | 
/SAVE SIGN IN LINK 
/STORE LSW 
/WAS SIGN MINUS ? 
/YES » MSW 8 7979 


ACLEAR EXT 
/RETURN 














/ MIND ROUTINES 


6984 
6952 
6953 
6954 
6955 
6256 
6937 
6060 
6061 
6962 
6963 
6264 
6965 
6266 
6047 
6278 
6274 
6g7e2 
6273 
6074 
6975 
6276 
6977 
6100 
6481 
6402 
6143 
6404 
6125 
6426 
6147 


(TRS) 


ADS 
7200 
1374 
3O10 
6244 
1449 
6201 
3773! 
621 
1449 
3306 
1442 
7449 
527g 
5345 
7044 
1254 
7640 
5255 
6281 
7684 
a372 
7649 
5305 
7604 
374 
7689 
8634 
477g! 
3086 
ag8e 
7604 
0371 
7642 
4767! 
5634 


6201 
7402 
5316 


A022 


SETUP, 


ENTYP, 
ENTTX!, 


BADNWS, 


ESTOP, 


DIALI2 vVee3 


2 

CLA 
TAD 
00a 
COF 
TAD 
cOF 
DCA 
cor 
TAO 
DCA 
TAQ 
SZA 
JMP 
JMP 
Cra 
TAD 
SZA 
JMP 
cor 


CLA 


Cha 


(SETTAB@4 


sve 
BAONWS 


SETUP 
SEFUPS4 
1) 


(182 
ENTYP 
(282 


SETUP 
TYP 


(202 


KEYCK 
SETUP 


02 
ved 
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/GET ADDRESS OF TABLE 
/GET MAJOR STATE WORD 
/RESTORE PROGRAM DATA FIELD 


/GET DATA FROM FELFD 1 
/GET TEXT ADDR 


/SOMETHING IS WRONG 
/CHECK FOR PROPER ADDRESS 


/RESET PROGRAM FIELO 


/GET SW 5 
/TRACING PROGRAM ? 
/YES @ TYPE ENTER 


/GET SH 4 
/STOP ON ENTER ? 
“NO « RETURN 
/TYPE ENTER 


/GET SW 4 
/STOP ON ENTER ?_ 
/YES e© WAIT FOR KEVBQARD {NPUT 


/PROGRAM MUST BE RE LOADED 


~ 


MIND RQUTINES 


S124 
$122 
$423 
6124 


6125 
6126 
6427 
6132 


61314 
$132 
6133 
6434 


6135 
6136 
6437 
6142 
61444 
6142 
6143 
6444 
4145 
6146 
6147 
6158 
6484 
6132 
6433 
6134 
6155 
6156 


6165 
6166 
6167 
6170 
6171 
6172 
6173 
6474 
6175 
6476 
6477 


(TRS) 


2020 
4335 
4072 
5724 


2890 
4335 
2066 
3725 


2080 
4335 
2078 
3734 


8280 
7@82 
1735 
3880 
2335 
1492 
2020 
2366 
71406 
7084 
1365 
3333 
1492 
3868 
6204 
1489 
6204 
5735 


6201 
2897 
R254 
6783 
2282 
G128 
O731 
1577 
3762 
6727 
7622 
6220 


GAPT, 


GPC, 


GOP, 


GET, 


DIALA2 


2 
JMS 

PAPT 
JMP I 


PAGE 


VOaS 


GET 


GAPT 


GET 
GPE 


GET 
GOP 
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/OUTBRK USING ADORS 
/GET DATA 
/DATA ADDRESS 


/QUTBRK USING FPE 
/GET QATA 
ZADDRESS OF DATA 


/QUTBRK USING OP ADDRESS 
/GET DATA 
/DATA AQDRESS 


/GET DATA 


/GET ADDRESS REGISTER 

/SAVE 

/INCREMENT RETURN 

GET FIELD Bfs 

/ING TO RIGHT HALP OF RECTSTER 
/3 BITS ONLY 

/MOVE 3 BITS LEF? 


/CREATE COP {NST 
ee ADBRESS 
Ase TO CORREG? FleLo 


/GET DATA 
/RESTORE OATA FIELB 
ARETURN 











/ 


Mint ROUTINES 


4220 
6234 
6202 
$233 
6204 
6205 
6286 
6207 
6248 
6241 
6242 
6243 


6244 
6215 
6216 
62147 
6220 
6224 
6222 
46223 
6224 
6225 
6226 
6227 
6232 
6234 


6232 
6233 
6234 
6235 
6236 
6237 
6242 





(TRS) 


22900 
7604 
4377 
7652 
5212 
1689 
3212 
4776! 
9000 
S200 
2200 
5600 


2008 
7208 
6566 
3234 
4074 
7041 
4231 
zoe 
614 
tis 
473a! 
8203 
5614 
698g 


7242 
1844 
3084 
1404 
8373 
$483 
3422 


TRSKP, 


CKOPAD, 


SAVOP, 
LTRUNK, 


DYAL12@ 


V883 


/CHECK SROS 


a 

Las 

ANO 

SNA CLA 
JMP 

TAO } 
DCA 

JMS 

2 


g 
1$z 
JMP 


/CHECK OP ADDRESS 


g 
CLA 
RDOP 
DCA 

TAQ 

CTA 

Tad 

SNA CLA 
JMP ft 
TAQ 

JMS 
ERROR 
JMP 


STA 
TAO 
OCA 
TAD f 
AND 
DCA f 
JMP ft 


(162 


#6 
TRSKP 
1%2 
TYR 


TRSKP 
TRSKP 


SAVOP 
OPADRed 


SAVOP 


CKOPAD 
7600 
ERR 
G203 
CKOPAD 
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/GET SWITCH 5 
/1S SWITCH 5 SET ? 
/NO © BYPASS TYPFQUT 
/GET TEX? ADDRESS 


/GET OP ADBR FROM PRP 
/SAVE FOR TYPEOUT 
/GET PROGRAM OP ADBR 


/COMPARE THE ADDRESSES 
/FPP OF AOBR CORREET ? 
/YES 

JNO @ GET PC 

/GO TO ERROR ROUTINE 
/OP ADDR ERROR CODE 
/RETURN 


/OEL BITS Be8 IN 2 WORE REG 
/GET REGISTER ADORESS 
/STORE IN POINTER 

/GET REG MSW 

/DEL BITS @=8 

/STORE REG DATA [{N MSW 
/EXIT 


cowcawes oilem: vuntheneereirne eek 





/ 


MIN? ROUTINES 


6244 
6242 
6243 
6244 
6245 
6246 
6247 


6252 
6251 
6252 
62538 
6254 
6255. 
6236 


6257 
6268 
6264 
6262 
6265 
6264 
6265 


6266 
6267 
6270 
6274 
6272 
6273 
6274 
6275 
6296 
6297 
6300 
6302 
6302 
6303 
6304 
6305 
6386 
6307 
6342 
6344 
6312 
6343 
6344 
6345 
6316 


(TRS) 


Aga 
7200 
1772! 
2374 
1372 
3772! 
5644 


2002 
7200 
1772! 
O374 
1367 
3772 
5650 


LY) 
7200 
4772! 
6374 
4346 
37721 
5657 


2998 
1922 
3228 
1222 
2365 
3822 
4523 
7428 
1289 
3922 
7420 
5666 
1922 
7104 
7520 
5341 
7262 
7530 
5666 
4524 
4222 
1764! 
1363 
3744! 
5267 


SE7TSTS, 


SETSTS, 


SETSTS, 


XNORM, 


XNCK, 


NXSHFT, 


DIAL1@ 


CLA 
TAD 
AND 
TAD 


JMP 3 


JMP 


VO83 


CSTATE 
(377 
(2480 
CSTATE 
SETSTS 


CSTATE 
(377 
(1408 
CSTATE 
SETSTS 


CSTATE 
(377 
(3808 
CSTATE 
SETST6 
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/SET PROG STATE 5 


/SET PROG STATE $ 


/SET PROG STATE 6 


NORMALIZE THE O REGISTER 


8 
TAQ 
DGA 
TAD 
AND 
DCA 
SQEZ 
STL 
TAD 
DCA 
SNL 
JMP 
FAD 


RAL CLL 
SMA SNL 


JMP 


CMA CML 
SPA S2L 


JMP } 
SHIFT 
OREG 
TAD 
TAD 
DCA 
JMP 


OMSW 


Td 
OMSW 
(1977 
OMSW 


Th 
OMSW 
XNQRM 
OMSW 
NXSHFT 


XNORM 


LEFT 
SHREG 
(eq 
SHREG 


XNORMS4 


a ee Se eee CSS 


/GET MSW 

/SAVE {T 

/GET MSW AGAIN 
/DELETE BITS @ AND ji 
ASTORE BITS 2ef4 

tS 098? 


/RESTORE MSW 


/WAS Q 8 
/NO NORMALIaE REQUIRED 
/GET MSW 


/YS BIT @ OR i841? | 

/NO = NO, {S NOT NORMALIZED 
/COMPLIMEN?T SIGN AND LINK 
/ARE BOTH BITSsi 

/NS # NO, FS NORMALIZEO 
ASHIFT O LEFT 4 BI 


/GET SHIFT REGISTER 
/DECREMENT 

“RESTORE [fT 

/REPEAT 























4 MINE ROUTINES (TRS) DYAL 


6317 A200 INDEX, 2 
6322 73082 CLA 
6321 1825 TAD 
6322 98362 AND 
6323 70108 RAR 
6324 7042 RTR 
6325 1361 TAD 
6326 3209 OCA 
6327 5747 JMP 
6330 089 XPLUS1, 2 
6331 4317 JMS 
6332 2482 1S2 
6333 70808 NOP 
6334 5732 JMP 
6335 2009 XGETX, 2@ 
6386 4347 JMS 
6337 1409 TAD 
6349 5735 JMP 
6344 2909 BRANCH, @ 
6342 2384 2e84 
6343 2201 2201 
6344 8423 g1235 
6345 2224 | 2ea4 
6346 2206 2286 
6347 2434 2434 
6389 0544 @544 
6334 345 @345 
6352 2530 e532 
6383 1722 1728 
6384 2340 2342 
6355 a344 O344 
6336 6594 9584 
6337 8800 S988 
63464 8280 
6362 8872 
6363 7777 
6364 08724 
63465 1777 
6366 3822 
6367 1402 
6372 2488 
6371 8377 
6372 8734 
6373 027 
6374 6787 
6375 7602 
6396 67083 
6377 M182 

6402 PAGE 





18 


CLL 


V88S 


PIR 
(78 


(Xd 
TL 
INDEX 


INDEX 
Ti 


XPLUSL 


INDEX 
Ta 
XGETX 
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/FIND INDEX REG SPPCIFIED 

/BY BITS 608 OF FPP ENSTRUCTION 
/GET INSTRUCTION 

/EXTRACT X BITS 

/ARIGHT JUSTIFY 


/A00 TO ADDRESS OF X@ 
/SAVE X ADBR 
ARETURN 


INCREMENT X 
/GET ADDR OF X IN F4 
JING X 


/RETURN 


/GET [INDEX REG 
/FIND ADOR OF X 
/GET DATA IN X 
/RETURN 


LOAD START STEP ADSRESS 
LOAD RESET STEP ADSRESS 
ASSEMBLE 

RUN TRACE MODE 

RUN FAST MODE 
TYPE CONTENTS OF REGISTER 
ERROR LIST 

LOAD COMMAND REGISTER 
PPP EXIT 

LOAD OPERANOD TABLE 
SET SHIFT COUNT ANB PLAG 
CLEAR STEP SWITCH 

SET EXIT ADDRESS 


eAiAitaalne Mena ed etme ven ne ne 


/ 


MIN? ROUTINES 


6499 
6401 
6402 
6423 
6404 
6445 
6496 
6487 
6440 
6444 
6442 
6443 
6444 
6445 
6446 
6447 


6422 


“(7R3) 


OBS SHIFTE, 
7390 

1777! 

7659 

5602 

1036 SAVSN; 
8376 

3222 

4524 

OQ36 

1236 

1229 

$836 

27773 

5285 

$600 


2080 BSIGN, 


OT AL12 


a 

CLA Cul 
rad 

SNA CLA 
JMP f 
TAD 

ANO 

OCA 
SHIFT 
BREG 
TAD 

TA0 

Oca 

1$2 

JMP 

JMP 


's 


V293 


SHREG 


SHIFTS 
BMSW 
(4900 
BSIGN 


RIGHT 
BMSW 
BSIGN 
BMSW 
SHREG 
SAVSN 
SH{FTB 
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/SHIFT B UNTIL SHFY CNTES 


/GET SHIFT COUNT 
/SHFT CNT#6? 
/YES » NO SHIFT 
/GET B MSW 

ASAVE SIGN BIT 


/SHIFT B RIGHT 1 BIT 


/EXTEND THE SIGN 


ASHIFT COUNT#O 
JNO @ SHIFT AGAIN 
AYES e RETURN 

















/ 


MIN? ROUTINES 


6421 
6422 
6423 
6424 
6425 
6426 
6427 
6432 
6434 
6432 


6435 
6434 
6435 
6436 
6437 
6449 
6441 
6442 
6448 


6444 


6445 
6446 
6447 
6489 
6454 
6482 
6453 
6454 


6455 
6436 
6437 
6462 
64614 
6462 
6468 
6464 
6445 
6466 
6467 
6472 





(TRS) 


4922 
7340 
1273 
SO78 
7420 
7H4B 
1072 
3272 
7380 
5621 


8000 
3244 
1005 
7006 
7429 
2233 
7300 
1244 
5633 


2020 


g000 
7300 
3795! 
2923 
5645 
2022 
7000 
5645 


D0O0 
7380 
1205 
8374 
1373 
74532 
5267 
1372 
7642 
2255 
7300 
5685 


APTDEC, 


CKSUB, 


cKST, 


OPLUSI, 


MEMINS, 


OFAL12 


2 


Sva CLL 


TAD 
OCA 
SNL 
CMA 
Tad 
OCA 


CLA ChL 


JMP 


8 
pCa 
TAD 
RTL 
SNL 
1$2 


CLA ChL 


TAD 
JMP 


8 


V963 


PAPTo4 
PAPTet 


PAPT 
PAPT 
APTDEC 
CKST 
PIR 
CKSUB 


CKST 
CKSUB 


GeAPRea72 
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/DEGREMENT PROGRAM 

7APT POINTER. : 
442 BIT ABSOLUTE AaDDRef 
/QVERFLOW? 


/YES 
FIELD BITS 


/RETURN 


SKIP LF INSTRUCTION IS 
/NOT A SUBTRACT 
/GET INSTRUCTION 


/SUBTRACT? 
ANOwINCREMENT RETURN 


/RESTORE Aé 
/RETURN 


/INCREMENT THE O REGISTER 


CLA CLL 


JMP } 


OVFL 
OLSW 
OPLUS1 
OMSW 


OPLUS1 


/DOES INSTRUCTION STORE 


8 
CLA Chi 

TAD PIR 
ANO (7802 
TAD (3000 
SNA 

MP 144 
TAD (2008 
SzA CLA 

1$z MEMINS 
CLA CLL 

JMP I MEMINS 


/INCOR®ING THE O REG 

/CLEAR OVERFLOW 

/tNC LSW 

/RETURN 

ZING OMSW 

/RETURN 

THE ANSWER IN MEMORY ? 

/SKIP IF ANSWER 1S NOT TO GO TO MEMORY 


GET INSTRUCTION 
ZEXTRACT QF COBE 


/FADOM? 
/YES@RETURN 


/FMULM? 
/NO@INCREMENT RETURN 


/RETURN 





/ 


f \ 
C 
’ 
1 


MIN? ROUTINES  ¢TR3) 


6474 
6472 
6473 
6474 
6475 
6476 
6477 
6500 
6594 
65082 
6503 
6504 
6505 
6506 
6507 
65i0 
6544 
6542 
6543 
6544 
6545 
6546 
6547 
6520 
6524 
6522 
6523 
6524 
6525 
6526 
6527 
6532 
6534 
6532 
6533 
6534 
6535 
6536 
6537 
6542 


A002 
7302 
1371 
3909 
1202 
7004 
W370 
4367 
3334 
1200 
7881 
7648 
TOOL 
1366 
3765! 
1765! 
3948 
7840 
1074 
3041 
1972 
364 
7404 
7006 
4363 
3323 
6201 


6201 
7044 
4440 
768Q 
5336 
4274 
4762! 
gga2 
5340 
2020 
5323 
5674 


CMEM4, 


-CMEM, 


MCODE, 


DIALL2 


V28S 
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/CHECK DATA THE FPP STORED IN MEMORY 


Y 

CLA CkL 
TAD 

NCA 

Fad 

TAC 

AND 

TAD 

DCA 

TAD 

TAC 

SZA CLA 
TAC 

TAD 

DCA 

TAD 

DCA 

CMA 

TAD 

DCA 

TAD 

AND 

CLL RAL 
RT. 

TAD 

DGA 

cor 

TAD { 
CDF 

CYA 

TAD } 
SNA CLA 
JMP 


(at 
ge 
(22 


MCOQDE 
TL 


(EMEMed 
SAVMEM 
SAVMEM 
12 


OPADRe{ 
41 
OPADR 
(7 


/COMPARE MEMORY EXPONENT 


/GET COUNT 
ASAVE COUNT 


/4_0R 2 WORD ERROR CODE 
/MEMORY ERROR CODE 
/STORE FOR ERROR 

/GET WORD @QUN? 


/SAVE FOR ERROR REPORT 


/GET OP ADDRESS 


/GET FIELD BiTs 
/DELETE EXPRA BUTS 


sMOVE 3 BITS LEFt 
/GREATE COP INSTRUETION 
/MODIFY PROGRAM 

“USER FIELD 

/GET FPP DATA 

/PROGRAM FYELO 


/PROGRAM DATA 

/tS DATA OK ? 

/YES 

/NO 
GO TO ERROR ROUTINE 
/MEMORY ERROR COBE 
/RETURN . 
/YES=wEND OF COMPARE? 
/NOs=COMPARE NEX® WORD 
/RETURN 











/ 


MINS ROUTINES 


S544 
$542 
6543 
$544 
6545 
6546 
6547 
65532 


6560 
6561 
6542 
6568 
6564 
6565 
6566 
6567 
6579 
6571 
6572 
6573 
6574 
6575 
6576 
6577 





(TRS) 


2022 
7382 
1344 
Sa74 
4530 
1364 
1362 
5273 


7774 
8883 
6787 
6221 
9887 
8712 
2104 
2022 
G20 
7777 
62908 
3220 
7088 
8733 


-4988 


R724 
6680 


CMEM2, 


OTALL@ VO8S 


2 

CLA CLL 

TAD CMEM2 
OCA CMEML 
SEPM 

TAD (3 

TAO (a4 

JMP CMEM1e2 
PAGE 
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ACOMPARE MEMORY FRACTION 


/GET REFURN 
/SET RETURN IN EXP COMPARE 
/EPM MODE? 

JNO © WORD COUNTsef 

AWORD COUNTae1 OR of 

/GO TO EXPONENT COMPARE 


/ 


pm 


MINE RQUTINES 


6680 
66281 
$632 
4623 
6644 
6685 
6686 
6627 
6642 
6644 
6642 
6623 
6644 
6645 
6646 
6647 
6620 
6624 
6622 
6623 
6624 


6625 
6626 
6627 
6630 
6631 
6632 
6633 
6634 
6635 
6636 


(TRS) 


1200 
7300 
1076 
7104 
7086 
4377 
3216 
7240 
1877 
$010 
1376 
3041 
1375 
3008 
6201 
140 
6201 
3444 
2000 
5246 
5600 


000 
1625 
1374 
3000 
2225 
3440 
2000 
5233 
5625 


PINDEX, 


PING, 


CLREG, 


DIALI@ VaaS 
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/MOVE USER JNDEX REGS TO PROGRAM JNOEX REGS 


2 

CLA 
TAO 
Clie 
RTL 
TAD 
OCGA 
STA 
TAD 
OCA 
TAO 
OCA 
TAD 
oer | 
COF 
TAD 
COF 
DCA 
1$2 
JMP 
JMP 


Chel, 
RAL 


XZaDR 


(COF 
PINCF 


XZADR+4 
12 
(XBa4 


PINDEX 


CLREG 
12 
{=6 
Ti 
CLREG 
18 
Th 
1°2 
CLREG 


/SET PROGRAM INDEX REGS 
/USER INDEX POINTER FIELO BITS 
AGREATE COF INST 

/MODIFY PROGRAM 

/WSER INDEX POINTER 
/ADOR OF PROG INDEX REGS 
/COUNT 

/USER FUELS 

APROGRAM FYELD 
AFINISHEO? 

ANO 

/RETURN 





6 EE Ee 





SRB eS, jel elie Re a eee 


/ 


MENT RQUTINES 


6637 
6642 
6641 
6642 


6643 
6644 
6645 
6646 


6647 
6652 
6651 
6652 
6683 
6654 
6655 
6656 
6637 
6662 
6661 


6662 
6663 
6664 
6665 


6666 
6667 
6670 
6674 


6672 
6673 
6674 
6675 


6676 
6677 
6742 
6784 
6782 





(TRS) 


2022 
4225 
0627 
5637 


2820 
4225 
2235 
5643 


8000 
1083 
7740 
5237 
3022 
3023 
3027 
5647 
4225 
8024 
5647 


CLRAX, 


CLRBEX, 


CLROX, 


CLRMOX 


CLRAGX, 


OYALL2 


2 
JMS 


AREGe] 


JMP 


g 
JMS 


BREGed, 


JMP ft 


g 
TAD 


SPA CLA 


JMP 
OCA 
DCA 
DCA 
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CLREG 
CLRAX 


CLREG 
CLRBX 


EPM /GEY THE EPM CONTROL REGISTER 
7EPM ENABLE = @ ? 
/YES e CLEAR ENTIRE REGISTER 


ws 
: JNO » CLEAR MSW,LSW,EX? ONLY 


OMSW 
OLSW 
OEXT 
CLROX 
CLREG 


CLROX 


JRETURN 


CLREG 
CLAMQX 


CLREG 
CLRACX 


WORD 
12 
WORDL 


7LINK TO KEYCK FROM FSELD 4 
KE YCK 
42 
400 
KEYL4 


= = - 


i, . a i 
/ MINE ROUTINES ¢TR3) DIAL42 vVeas SeAPRet2 141127 Pace 99 
6783 292g TYP, a /JLINK TO T¥P42 IN PIFLO 1 
6774 6242 CIF 12 
6785 5706 JMP 1 i+ 
6706 A036 TYPL 
6707 #082 ERR, 2 /LINK TO ERRGO IN FIELD 1 
6748 6241 cOF 12 
6741 6212 cyF 42 
6742 4744 JMS f 1*2 
6743 5787 JMP f ERR 
6744 1282 ERRLG 
/ZINCREMENT THE PROGRAM STATE GENERATOR 
6745 e900 STING, 2 /INCSTS@INCREMENT THE 
6746 7302 CLA Chk /PROGRAM MAJOR STATE GEN, 
6747 1771! TAD CSTATE 
6728 1370 TAD (400 : 
6724 3774! Oca CSTATE 
$722 5745 JMP ~ STENC /RETURN 
/DECREMENT THE OF ADDRESS 
6723 e@8a2 OPDEC, 2B /DECREMENT OP ADORESS 
6724 7342 Chh STA /ACend 
6725 1074 TAD OPADReg 442 BIT ABSOLUTE ABOR 
$726 3074 ca OPADR+4¢ 
&727 7420 SNL 
S730 7940 CMA ; 
6731 1870 TAD OPADR /FIELO BITs 
$732 3070 DCA OPADR 
6733 7300 CLA Chl 


6734 3723 JMP $ OPOEC /RETURN 














ct erapipelintientiemeatth, ass a en en a ge 


/ MINE ROUTINES (R39) SJAL19 V9B3 6eAPRa72 11197 PAGE 98 


JAOD A AND B REGISTERS AND STORE THE 
/ANSWER IN THE O REGISTER, 

/THIS ROUTINE AND "SUBAB” SIMULATE THE 
/ARITHMETICG FUNCTIONS OF THE ADDER 


6735 e002 ADDAB, 2 


6736 7302 CLA CLL 
6737 1883 TAD EPM /GET EPM CONTROLS 
6740 7782 SMA CLA 7EPM ENABLE = {7 
6744 5767! JMP ADEXT /NO » ADD BEXTENSTONS 
6742 1887 TAD CARYIN AGET CARRY INSERT 
6743 7642 SZA CLA /CARRY IN @ 1? 
6744 7901 rac /YES e adO If IN 
6745 1034 TAD ALSWS 
6746 1842 TAD BLSW3 /a00 EPM LSW3 
6747 3026 OCGA OLSWSs ; 
6759 7904 RAL, /INSERT CARRY OUT OF LSwWS 
6751 1833 TAQ ALSW2 
6752 1841 TAO BLSW2 /a0d EPM LSw2 
6753 3925 DCA OLSW2 . | 
6784 7004 RAL /INSERT CARRY OUT OF LSW2 
6785 1832 TAQ ALSW4 
6736 1242 Tad BLSW4 700 EPM LSwi 
6787 3024 OCA OLSWS : 
6760 5766! JMP ADEXT#3 /GLEAR O EXTENSION 
6761 3767! od MP ADEXT 
6762 5735 ADRE?, JUMP 3 ADBAB 
6766 7083 
6747 7008 
67728 84080 
6774 O731 
6772 0254 
6773 8265 
6774 7772 
6795 7772 
6776 8177 
6777 6201 

7020 PAGE 


/ 


jam, 
MIN? ROUTINES 


7282 
7094 


7082 
7883 
7284 
7005 
7086 
7287 
7812 
7844 
7012 
7813 
7844 
7015 
7016 
7047 
7822 
724 
7922 
7223 
7824 
7825 
7026 
7027 
7030 
7834 
7032 
7838 
7034 
79338 
7036 
7937 
7348 
7041 
7042 


(TRS) 


1035 
1243 


1207 
3927 
7804 
1034 
1937 
323 
3907 
7004 
1032 
1236 
3922 
7040 
3024 
47971 
5249 
1232 
7494 
7320 
1236 
753g 
7062 
7730 
5241 
4030 
74.04 
7290 
4222 
7532 
7060 
7730 
7340 
3776/ 
B795/ 


ADEXT, 


SETFL, 


DIALIS §6Vveas 
TAD AEXT 
TAD BEXT 
TAD CARYIN 
DCA OEXT 
RAL 

TAD ALSH 
TAO BLSW 
DCA OLSW 
DCA CARYIN 
RAL 

TAD AMSH 
TAD BMSW 
DCA OMSW 
RAR 

DCA CAROUT 
JMS SPECFL 
JMP SETFL 
TAD AMSH 
RAL ChL 

CLA 

TAD BMSW 
SPA SzL 

CMA CML 
SPA S2L CLA 
UMP SEfFLes 
TAD = ABW 
RAL CLL 

CLA 

TAD = MSW 
SPA SEL 

CMA CML 
SPA S#L CLA 
STA Chl 

DCA OVFL 
UMP ADRET 
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/ADD EXTENSIONS WHEN NOT 
/YN EPM 


7ADD CARRY INSERT 


/INSERT CARRY OUT OF EXT 
7A00 LSW 


/RESEF CARRIN IN - 
/YNSERT CARRY OUT OF SLW 
/A0D MSW 


/GARRY OUT To SIEN BIT 

/SAVE CARRY OUT - 

/CHECK FOR 4898 AGO IN O 

/O0 = 4890 8909 SPEEIAL OVERFLOW 
/CHECK OVERFLOW 

/SIGN OF A IN LINK 


/GET B SIGN 
7ARE BOTH SIGNS AOS 
/NO@COMPLIMENT = 
7ARE BOTH SIGNS NES 
/NO@NO OVERFLOW 
/GET SIGN OF OPERAND 
/SAVE IN TRE LINR 


/GET SIGN OF ANSWER 
/ARE BOTH SIGNS FOS? 
/COMPLIMENT _ 
/ARE BOTH SIGNS NEG? 
/NOsSET OVERFLOW 
/STORE OVERFLOW 
/RETURN 














/ MINE ROUTINES 


7943 
7944 
7045 
7046 
7047 


7250 
7054 
7052 
7033 
7954 
7285 
7256 
7057 
78462 
7261 
7262 
7068 
7864 
7065 
7066 
7667 


7972 
7074 
7092 
7093 
7074 
7075 
7076 
7077 
7182 
7484 
7442 


74288 
7424 
71485 
71406 
7407 
7118 
74414 
7142 
71138 


(TRS) 


A280 
4256 
4576 
4250 
5643 


2002 
1283 
7742 
7346 
1374 
3280 
1922 
7162 
13573 
SQA4 
1823 
7740 
5278 
1843 
7441 
3843 


41421 
7848 
7430 
7464 
3484 
7860 
1804 
SOBL 
2088 
5270 
5652 


C282 
S824 
18085 
2372 
1026 
3802 
1094 
3422 
$723 


SUBAS, 


NEGB, 


BCOM, 


XPUTX, 


OYAL4@ VdGS 
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/SUBTRACT B FROM A AND STORE THE 
/ANSWER IN THE O REGISTER 


a 
JMS 
APBO 
JMS 
JMP 


8 
TAQ 


SPA CLA 
STA CLL 


TAD 
DCA 
TAQ 


CMA STL 


TAD 
OCA 
TAD 


SPA CLA 


JMP 
TAD 


ClA ClL 


TAC Chi 
CML CMA 


JMP 1 


NEGB 


NEGS 
SUBAB 


BCOM 
NEGB 


Té 
PIR 
PXP 
T4 
T2 


XPUTX 


sMAKE & NEGATIVE 
/A0D A AND @8 
/RESTORE B 
/RETURN 


/GET EPM CONTROL REG 

/EPM ENABLE = 4? 

JAC 8 83 

/WORD COUNT [1S e2 OR oS 

/STORE WORKS COUNT 

/GET WORD @OQUNT 

/MAKE {7 POSITIVE AND SUBFRACT i 
70D BASE ADDRESS 

ASTORE STARTING ADBRESS 

/GET EPM GONTROL REG 

71S EPM ENABLE @ 49 

/YES » BYPASS EX*, 

/NO © EXT [S USES "INSTRAD OF LSHIS 
/NEGATE EX?, 

/STORE * EXT’, 


/GET REGISTER Bata 
/COMPLIMEN? fF 
/CARRY QUT FROM PREVIOUS WORD? 
AYES @ ADD Ta our 
/STORE @ DATA 
/AC ® of AND GOMPLYEMEN® THE LINK 
/SUBTRACT £ FROM ABOR AND RESTORE LINK 
/STORE ADORESS ef 
ZEND OF WORD COUNT? 
/NO @ NEGATE NEXf WORD 
/YES «© RETURN Z 


/PUT DATA IN INDEX REG 
/SAVE DATA 

/GET JNSTRUCTION. 
/EXTRACT BITS 9=f4 
7ADD X2@ ADOR 

/SAVE ADDR 

/GET DATA 

/STORE QATA 

“RETURN 





/ 


MINT ROUTINES 


7114 
7145 
7116 
7147 
7120 
7124 
7122 
7123 
7124 


7125 
7126 
7127 
7430 
7431 
7132 
7433 
7434 
7435 
7436 
7437 
7448 
7141 
7442 
74438 
7144 
7448 
7446 
7449 
7439 
7484 
7132 
7433 


7454 
7135 
7156 
7437 


7464 
71465 
7166 
7467 
7472 
7474 
7472 
7173 
7474 
7495 
7476 
7477 


(TRS) 


C200 
7300 
6556 
3324 
1344 
4774! 
A904 
5744 
ET) 


1370 
3040 
14i2 
7459 
5747) 
6046 
6044 
5333 
7209 
5327 
334 
6240 
9242 
g009 
2080 
7389 
4343 
37:66! 


STERR, 


STSAVE, 
RVBOUT, 


RUTX?, 


TYPNER, 


ASG, 


DYALLB 


@ 

CLA Chi 
FPRST 
BCA 

TAD 

JMS 
ERROR 
JMP 


PAGE 


V8aS 


STSAVE 
STERR 
ERR 
C884 
STERR 


CRUTXTead 
12 
12 


WORD#4 


red 
et, 


TYPNER 
rYe 


12 
(CRSW 
| 
TYP+4 


48 
if 
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/STATYS ERROR 


/GET STATUS FROM FPPWi2 
/SAVE FOR ERROR TYPEOUT 
/GET RETURN ADDRESS 

/GO TO ERROR ROUTINE 
/STATUS ERROR CORE 
/RETURN 


/YF RUBOUT WAS INPUT 
/ECHO / AND DELETE __ 
/DATA WORDS {N WORB ROUTINE 


/TYPE WITH NO GARRAIGE RETURN 


/GET RETURN ADORESS 
7SET TYP ENTRY FOR RETURN 
/SET THE AG ew 9799 

/PYELD 4 

/SET NO RETURN SWITCH 
/RESTORE FYELO 

/GO TO T¥RE ROUTENE 


ALINK TO ASCY@ IN FIELD 4 























/ 


MI&® ROUTINES 


7226 
7201 
7202 
7283 
7204 
7285 
7286 
7207 
7240 
7244 
7212 
7248 





(TRS) 


2088 
7380 
1023 
77288 
5213 
1026 
6243 
1025 
4243 
1824 
4245 
18235 
4243 
1822 
42458 
7652 
2288 
3682 


2080 
7982 
4530 
3234 
1957 
4245 
1256 
4243 


SEZ, 


AEE, 


CKLINK, 


DTAL42 VO8S 


2 

CLA 
TAD 
SMA 
JMP 
TAO 
JMS 
7A0 
JMS 
TAD 
JMS 
TAQ 
JMS 
FAO 
JMS 
SNA 
152 
JMP 


Clb 
Cla 


CLA 
I 


} 
tac 


EPM 


+ 
OLSWS 
CKLINK 
OLSW2 
CKLINK 
OLSWS 
CKLINK 
OLSW 
CKLINK 
OMSW 
CKLINK 


OEg 
OF# 


4 
ACLSW3 
CKLINK 
ACLSW2 
CKLINK 
AGLSWS 
CKL INK 
AGLSW 


CKLINK 


AES 
AE 


CKLINK 
,*8 


/SKYP TF 


/GET EPM CONTROL REGISTER 


11107 


Qap 


ZEPM ENABLE & 1 7 


/NO = BYPASS EPM LSW/S 


/GET EPM 
/INHIBIT 


/GET EPM | 


/INHIBIT 


/GET EPM | 


INHIBIT 
/GET LSW 
/INHIBIT 
/GET MSW 
AINHIBIT 
f/AC es 8? 
AYVES*# ING 


/SKIP IF 


OVERFLOW 
eee 
OVERFLOW 
OVERFLOW 
RETURN 


FACs@ 


ZEPM MODE? 


/NO = BYPASS EPM LSW/S 


/GET EPM LSWS 


INHIBIT 
fGET EFM 
AUNKTBLT 


OVERFLOW 
LSW2 
OVERFLOW 


GET EPM LSWd 


/INKIBIT 
/GET L3wW 
/INKIBIT 


AYNAIBLT 
/AG 8 07 
/YES@ INC 
ARETURN 


/LINK 8 


OVERFLOW 
OVERFLOW 
OVERFLOW 
RETURN 


? 


/NO « RETURN 


AYES = INSERT LINK INTO THE AC 


ACHECK LINK AGAIN 


PAGE 182 


oe Ek nk a 


a wraneion: 


/ 


ae 


MINE ROUTINES ¢TR3) 


7250 
7254 
7252 
7253 
7254 
7255 


7256 
7287 
7268 
7264 
7ehe 
7268 
Teta 


7265 
7266 
7267 
7270 
Ferd 
7272 
7273 
7274 
7295 
7276 


S228 
7322 
1253 
77418 
2250 
5652 


epee 
425g 
7440 
5656 
4222 
2236 


$656 


ALzs 


AG2, 


SHIFTO, 


Nyaa 


2 

CLA Chl 
TAD 

SPA CLA 
[$2 

JMP 


] 

JMS 
SKP 
JMP f 
JMS 
1S2 
JMP 1 


V2a5 


ACMSW 


ALZ 
AL2 


Al# 


AGE 
AE2 
AGe 
AGB 


SHREG 
SHIFTO 


LEFT 
SHREG 
SHEFTOe5 
SHIFTO 


144}27 PAGE 183 


ASKTP TF Fac 18 NEG 


/GET FAC MSW 
71S FAC MINUS 
/YESe# ING RETURN 
/RETURN 


/SKJP JF FAC 1S GREATER THAN @ 
71S FAC MINUS 

/NO@CHECK YF 2 

/YES#00 NOT SKIP 

715 FAC 97 

/NO#ING RETURN 

/RETURN 


/SHIF® O LEFT UNTIL 
/SHIFT CNTReD 


ASHIFT CNT ad 
/YES@NO SHIFT 


ASHIFT CNTREO? 
JNOMSHIFT AGAIN 
/YES RETURN 











ad Eyeectban: Stet 


7 MINE ROUTINES 


7337 


7344 
7345 
7346 
7347 
7352 
7354 
7332 
7353 





(TRS) 


INSQ, 


INS24, 


CNTRLS, 


DYALIO VOSS 


111207 


/FPPel2 ARITHMETIC INSTRUCTIONS 


FLOA 

PF ADD 
PFADO 
PFOLV 
FMULT 
PP ADD 
PSTA 

FMULT 
PLOA 

DPADD 
OP ADD 
PFOVV 
FMULT 
OPADD 
FSTA 


SPEC21eS 
SPEC2i88 
SPEC2ie3 
SPECZia3 


/FLDA 
7F,P, ADD 
/F,P, AOD 
AFOLV 
/PMUL 
/F,P, ADD 
/FSTA 
/FMULM 
/FLOA 
/0,P, ADD 
/0,P, AQD 
/PBIV 
7EMULM 
40,P, AOD 
/FSTA 
/FMULM 


AND 
AND 


AND 


AND 
ANDO 


AND 


PAGE 104 


Sue 
SUB 


SUB 


Sus 
SUB 


SUB 


/TABLE OF INSTRUCTION 
/AODDRESSES FOR SPECIAL 
/FORMAT 2 ap coor f 
/JUMP ALWAYS (JA) 


/ MINE ROUTENES (TRI) DJALI@ vee@s Ge APRe72 44107 PAGE 108 : 
/SET RETURN FOR AUTO RESTART 
7354 4900 SETRET, 3 
7355 7390 CLA ChL 
7336 1376 TAD (StFPPe2 /GET REENTPR ADDR OF NORMAL MODE 
7357 3775! DCA REFURN /SET REENTER ADDRESS 
7362 3923 OCA EPM /RESET EPM MODE FLIP@FLOP 
7361 5754 JMP }  SEFRET /RETURN 
7362 0008 ASTER, 2 /LINK TO WORD FROM FIELO 4 
7363 «4774! JMS TYP 
7364 2457 AST 
7365 o80¢ a . 
7366 5762 JMP { ASTER 


7367 @809 TITLE, @ 


7370 6242 cir 12 
737% 4773 UMS 1,92 
7392 «3767 JMP t TIFLE 
7373 1422 TITL 

7394 6783 

7398 8354 

7376 1002 

7377 0724 


7488 PAGE 











4 MINE ROUTINES 


7480 
7481 
7482 
7465 


7484 
7485 
7486 
7487 


7410 
7444 
7442 
7443 
7444 
7445 
7446 
7447 
7428 
7424 
7422 
7423 
7424 
7425 





(TRS) 


6242 
62414 
5683 
8689 


6212 
62i1 
5687 
1407 


gg00 
7200 
1640 
7780 
1397 
4376 
3234 
1670 
7004 
74i0 
3000 


TY; 


Els 


SHIFTR, 


ROT, 


LQOPR, 


OL AL 


CyF 
COF 
JMP 
TY42 


CIF 
cOF 
JMP 
ELL 


2 

CLA 
TAQ 
SMA 
TAD 
Tad 


12 


! 


CLA 


RAR 


Cla 
eLL 


cht 


t 
CLL 


CLA 


VOO3 


SHIFTR 


(7904 
(7f04 


ROP 
SHIFTR 


44407 PAGE 186 


/GO TO TYPE ROUTINE IN FIELD 1 


/SHIFY REG LEFT OR RIGHT 


/GET THE ARGUMENT 
/LEFT OR RIGHT — 
/RIGHY » MAKE RAR 
/MAKE RAR OR RAL 


/SET ROTATE INSTRUETION 
GET REG 


/DELETE SIGN 
/START REG ADDRESS 


/} NEEO THA ADORESS PWICE 
/GET EPM GONTROL REG 

/EPM ENABLEed? 

AYES @ ACuas — 

/WORD COUNT sed OR w4 

/SET SHIFT WORD EQONT 
/GET MSW 


/ROTATE LEFT OR RIGHT 
“STORE SHIPTED MSW 

/GET ROTATE {NSTRUETION 
/STORE IN NEXT ROTATE INS? 


GET NEXT WORD 
/ROTATE LEPT OR RIGHT 


7GET ARGUMENT 

/LEFT OR RIGHT 

/RIGHT » CRECK WORE COUNT 
/LEFT = CARRY OUT? 

“YES @ INSERT [N PREVIGUS WORD 
/INC PREVIOUS ADDRESS 

7ZENQ OF REGISTER ? 

/GET NEXT WORD 


vot 
aa 2a, 
a \ _ 
' \ 
| f 

t 

\ 

\ 


, 
/ MIND ROUTINES ¢TR3) DJALLG Vaa3 6eAPRe2 44307 PACE 1%% 
JEPM CONTROL REGISTER OPERATIONS 
/BIT if FPM MODE 
/BIT @2 EPM ENABLE 
/BIT Of EPmM EXECUTE STATE 
/BIT 22 EPM SPECIAL STATE 
7454 2022 REXT, 1$2 Td 
7485 1003 TAD EPM /GET EPM CONTROLS 
7486 7742 SPA CLA /EPM ENABLE®4? 
7487 5274 JMP REND /YES ws ENO OF ROTATE 
7460 12822 TAD sea 7INGC Ti OVER EPM LSW/S 
7461 1374 TAD (3 
7462 3902 DCA Ti. 
7463 1234 TAD ROF /GET ROTATE fNSTRUETION 
7464 3266 OCA ,o2 
7465 1400 TAD f= TL /GET EXT 
7466 7440 RAR CLL /ROTATE LEPT OR RIGHT 
7667 8373 AND (7400 /MAKE IT 4 BITS 
74978 «63409 Oca y TL /STORE ROTATED EXT 
7471 7430 Sz. /CARRY OUT LEFT? © 
7472 «2404 182 1 T2 /YES © INSERT IN PREVIOUS WORD 
7493 «74i8 SKP 
7494 63460 REND, OCA! fT! YF EPMad GLEAR EX? 
7495 22¢0 192 SHIFTR /INC RETURN 
7496 56%9 JMP { SHIFTR /FINISHED » RETURN 
7497 «8909 SWEN?, 20 
7589 2008 SEX, g | /SEY TMSC PXECUTE 
7501 7300 CLA CbkL 
7502 18983 TAD EPM /GET EPM CONTROL REG 
7503 7206 RTL, MOVE BIT 64 TO HE LINK 
7504 7132 STL RTR /SEY BIT OL ANO RESTORE. THE AC 
7505 3903 OCA EPM /STORE STATE REG 
7506 5700 JMP } SEX /RETURN 
7507 0882 REX, 2 /RESET TMSE EXECUTE 
7548 7302 CLA ChL 
7541 10083 TAD EPM /GET STATE REG 
7542 7006 RTL MOVE BIT 41 TO fHE LINK 
7543 7412 CLL RTR /CLEAR BIT O21 ANB RESTORE AC 
7544 3923 DCA EPM /STORE STATE REG 
7545 8707 JMP f REX /RETURN 








/ 


MIN! ROUTINES 


7516 
7547 
7520 
7524 
7522 
7523 
7524 


7525 
7526 
7527 
7538 
7531 
7532 
7538 
7534 
7535 
7536 
7537 
7549 
7541 


7542 
7548 





(TRS) 


7020 
7322 
1083 
2S72 
1371 
3823 
5716 


I000 
7320 
18283 
9372 
S88 
3725 
0888 
7380 


SST, 


RST, 


SKPEPM, 


ENOFF, 


ENON, 


DIALI@ 


Q 

CLA CLL 
TAD 

ANO 

TAD 

DCA 

JMP f 


CLA ChL 


CLA CLL 


V28S 


(6977 
(1902 
EPM 
SS? 


EPM 
(6777 
RST 
EPM 


SKPEPM 
SKPEPM 


EPM 
ERM 
ENOFF 
ENON 
EPM 


EPM 
ENON 


14107 PAGE 188 


ASET TMSC SPECIAL STATE 


/GET STATE REG 

/SAVE ALL BITS EXCEPT BIT B2 
/SEY BIT @2 

/STORE STATE REG 

ARETURN 


/RESET TMSG SPECIAL STATE 


/GET STATE REG 
/CLEAR BIT B2 

/STORE STATE REG 
ARETURN 

/SKIP JF IN EPM MODE 


/GET EPM CONTROLS 
MOVE MODE BIT TO SIGN 
AEPM MODE? 

AYES e@ ING RETURN 


/RESET EPM ENABLE 


/GET EPM GCANTROL age 

/MOVE ENABLE TO INK 

/CLEAR ENABLE ANB RESTORE REG 
/RESTORE CANTROL REG 

/RETURN 


ASET EPM ENABLE 


/EPM MODE 9 

/NO = OO NOT SET EPM ENABLE 
/GET CONTROL REG 

MOVE ENABLE TO LINK 

/SEY ENABLE AND ER STORE REG 
/RESTORE GONTREL REG 
/RETURN 


aN 





psa Tess Ps rte 





/ 


\ 


2? 
Jj 


MINT ROUTINES 


(TRS) 


OTALI@ Vaees 


&uAPRa72 








: 


111237 
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FYELS 1 


2471 
2472 
2473 
2174 
2475 
0176 
3177 


6662 
6643 
6666 
6637 
3425 
6735 
7843 
2004 


DIAL12 


V28S 


FIELD 4 


6ehPRe72 


11127 


PAGE 12901 


fo ™ 


Sloat Wb 8 tntoal yt weantrenrtestlnny stumttnpninnneat tanita “$4 Cr 


~ x Bhs oe geval 
sonnet inarmiaminetctstabaiicarmnnntineeiitisislieeteliantelapanmnenrentelimieee litte wn w Loan ceauyns HAL oe donani 


Ss te rh Ta Reb ewlenetpetammendinino alia lemeatimenniaenalieet mils Sebel le 


2282 
9182 


8288 
8590 


8482 
65082 


8602 
0780 
1208 
1488 
1288 
1306 
1492 
1598 
1680 
1788 


20828 
2108 


2280 
2320 


2400 
2588 


2600 
2700 
3000 
3100 


3200 
3580 


3409 
$520 


3602 
3782 


\ 
\ j 


FYELO 4 


sii4i442 
1ititiit 


ditaiiis 
diiitiis 


{iiiiiis 
fititids 


414411141 
41411441 
41114441 
didiiiit 


G1414141 
fiiiiiti 


giiiiii1 
di414241 


EESESES! 
ditisiis 
fititiis 
giiatii4 


{1441414 
{14411714 


diiadiaia 
fitiiiis 


Gididaia 
41111141 
Gitiiaia 
qi4ii142 


diiiitaii 
tisiiiii 


ditiiiit 
diiidiii 


414144141 
414111114 


08007032 
11igi1ii1 


be ei ele 
tidiiai1 


41414171 
titaiii1 


tifiiig1 
FPLEU EES! 
tifisiis 
44214171 


14411174 
1iiiiifi 


11faiif1 
1ifaiiis 


11disai1 
1afataii 


42711194 


tafatiia 


11daiidi 
didasids 


11414144 
4ifaiif1 


11414141 
1ifaii%4 


41i14174 
tai1tii2 


tiditifi 
vie Hip lI 


nee Alp Ee 
tititici 


Patzistt 
12444141 


OLAL12 Va2es 


11414111 
41i1i111 


41714412 
tiiiiiit 


sii1iii1 
4aciiiit 


q1iii1ii 
qiciiiis 
4aiaiiis 
4afiii41 


ESE SESS! 
4acadiis 
dafiiiit 
4if14114 
qacifiis 
gitiizis 


4i7aiiai 
4afafiii 
42aaf114 
qagafii4 


$1¢i7444 
41itiiii 


atisisis 
diisiaid 
PES EERE! 
q2diii12 


t2dii111 
qiiiiii2 


t141f211 
qifiiiia 


1iiiiii1 
41ii4411 


6eAPRaZ2 


idiiiis 
14441141 


fifitiii 
12fisids 


1ifiaai1 
tidasiis 


4iiii41 
1i211144 
1ifiiii1 
FE ELSTE 


qifi11i1%4 
4afiai94 


4af11171 
4i0144%1 


1idisiii 
41714171 
bapities 
aifisiadi 


idisiti 
idisids 


thet 
i044 


$apatids 
aifisiis 
14241424 
riiisii1 


1id1i171 
aidaiida 


142.441 
sifaiads 


tifisids 
Sifsti di 


qisisiis 
11114114 


41144414 
diqaaita 


diidaii4 
dagadiiy 


diiiiiii 
Coe08G00 
qiiiiiii 
11900444 


disaaais 
Tasadata 


Tasiaais 
41411109 


didasiti 
fisiiaee 
Tagasisa 
(1134000 


Ti444141 
11408000 


eee 
1433453 


Tadaciii 
Gadisii4 
41444444 
4iditiit4 


(1441114 
{g0dagae 


4idi4ii1 
{1800022 


{iiadi ss 
Caigiiti 


14127 


14411111 
1i4idi4i1 


1ii4tii1 
4441121141 


44411441 
12414151 


1idiiiti 
@rvariisi 
1i4i24i1 
122231341 


42424134 
43411242 


442311341 
BGB92082 


eSSSESS! 
LiLdiiii 
41414141 
GSCSC111 


12443111 
SIOG2G2Q 


44414441 
14444134 


44414141 
44410231 


44414431 
19200089 


24413141 


AQPAAGRQ 


144111341 
SSCCCC20 


Litii444 
128G8G8g 


PAGE 18902 


Ti1ifii1 
{ifiiiii 
Tiiiiafs 
T1i171%2 


Titifiis 
Tatitiais 


Tiiifiii 
Tididiti 
fiditiis 
Tidafids 
TiiiTiid 
o1i4ifsia 
fiiiiats 
Qoi1f1i2 
TaTilaii 
Tiisfais 


Cifaisis 
Oaiiiiss 


{iiiifii1 
Tirifais 


f11it174 
agagegag 


Ci1iiiisii 
Ariiiiii 


Pitatat 
titiiiii 
iifiiiid 
tifiiisi 


difisidd 
fafiiidi 


1ifiiida 
difiiidi 


4ifiiidi 
dafiiid1 


bgitana 
41294 


fifaiid1 
41fai441 


fidiiia4 
iifitids 


iiZasid4 
mgiitiia 


41741444 


42¢493%: 


me 











4082 
4182 


4282 
4300 


4480 
4500 


4682 
4700 
5022 
510¢ 


8200 
$380 


5482 
ATT. 


3602 
5782 
6002 
6162 


6208 
63582 


6400 
6500 


6682 
6720 
7088 
7128 


7200 
73582 


7480 
7588 


7620 
7780 


FIELO 1 


11144414 
Piiisr4s: 


41144441 
dititiii 


41iaiai2 
iiiidiii 


41114141 
daiaiii1 
41244441 
Tiitiiaii 


(idiidaii 
G1iidii1 


ditaiads 
didisads 


iiaiid4 
dida4ii2 
dadisiada 
diii4i%4 


dasadafs 
ditaiiis 


faiisiaia 
didaiais 


diiaiidi 
qidaiadi 
faiiiii1 
diiitii4 


qadadais 
1id4t2i1 


11124141 
143144111 





44fii4i1 
titaiiiti 


s44ii2i4 
1ii1iii1 


tifaiiis 
12214244 


1iiiiiis 
4i4iaif4 
tiiaiiii 
ridatif1 


11i14444 
14214124 


4idasiii 
1idaiad2 


taiasadi 
42721272 
satsiags 
didididi 
422.2404 
aifidids 
eee 
4224142 


1afatafti 
427414441 


fatiiitt 
1aii11i1 


124431 
114141114 


1iditi1i2 
faiitiii 


OTALL2 Vvaga3 


1ififiit 
4aiaiii1 
41dif111 
42410114 
11417111 
44iif112 
4iisd114 
44cif141 


d1iitiia 
gicifiad 
1iciiiii 
daaifisa 


siiaiiis 
qafatist 


42737111 
dafaiaas 


gids fase 
digaiias 


diiiiisi 
4icifaat 


42iif111 
diaifii4 


fiiiiiia 
dadaf1i2 
d4rtiiis 
41iiiiit 
41411114 
PEES ESE! 
Pi{itii4 
Piiiiite 


6ekPRel2 


1if11141 
tadaiiii 


11011141 
42fiii41 


14711421 
1idiiits 


Liiisii1 
dafaiiis 
11214141 
aifisiis 


14011241 
aidadait 


1ifsitid 
1afisaci 


qafiasid1 
aafiaa7i 
sitasads 
qataasai 


$idasids 
difarats 
44021173 
treet 


ET EEES S| 
qafadidi 


rifiiiis 
tid24422 


14d114i1 
14711421 


tifiiiis 
tiiiiiis 


diigiiit 
Giiititi 


daiiiiis 
ditagid2 


ditaiii4 
digatits 


Gitiaiii 
Girisiis 
41134144 
Gitidais 


diaisits 
Gigiiiss 


Giiaditd 
Ci1s1100 


disisaii 
fitaaids 
heen 

1122143 


pene 
4424244 


fassiiss 
EREERS! 


diiiditt 
disaiiti 
didagiit 
diiadid4 


4iiaiiii 
Tiiddiis 


diitiiiiti 
41114114 


14187 


1444412141 
12414141 


41411141 
114114122 


Litidiis 
LLbiii41 


41422241 
11414141 
21343141 
11423241 


PE SSSE SY 
42312291 


42221431 
P2BCOO04 


14414301 
41424111 
11444131 
£14142430 


42313431 
42433491 


44414441 
10898088 


44,44 441 
42422341 
41414241 
1idaiisi 


Z1d11141 
424411414 


4241241221 
LL444441 


a 


PAGE 12983 


eEREREE! 
[1110041 


T114T1i1 
OC0G0013 
Tiialisy 
Teeoseis 


T1faTiis 
fifiegeg 


G111f414 
Tiisisis 


Tafifiis 
{1116000 


T1iifai4 
Tirifiats 
faiitiis 
fiieiais 


-* 4" 


ree OE OE Ol 
f#rFe Fe FF OH. 
eT i ee | 
ar Fe Fe GM: 
Sir eee Fee ee 
Qe +e: 6 peg 

yy ee oo) ee we 

ad 


STS} 
-- fe, 


Tiiifiis 
agoetiis 
SEER EEE! 
T1iatid4 
{iiatass 
{1008000 


afisada 
afiti41 
ER EESES! 
fidisads 
41714141 
G1fiiid2 


a 














v"68T 39d 


LOTT 


CheudV a9 


LBRA 


BbvIG 


tT Gala 


Preyo 4 


C282 


2022 
2224 
0222 
2923 
e924 
g25 
2026 
0227 
8830 
Bg3i 
8932 
O38 
2g34 
2035 


ed 


CB8O 
2247 


2020 
2022 
2208 
SO02 
2200 
2889 
2088 
0280 
2082 
CB2B 
2200 
0020 
2280 
2080 
2000 


OLALG2 


a 


712, 
¥20, 
TPNTR, 
TONTR, 
ASCCHO, 
ASCWOD, 
OCTWOO, 
CRSW, 
REGAB, 
RWENT, 
RTAQ, 
REGFLO, 
OADO, 
OWRD, 


V233 


BEGIN 


Wea AA VA QaAWAAQRaan s 


WW 
inc | 


6eAPReT2 


41187 
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DNYALI2 Vees 6wAPRe72 
/JLINK FYP IN FIELD @ VO TYPE IN 
TYPL, STA 

TAD { (TYP 

cOF 12 

OCA 12 

TAD (#6 

DCA TYPLX 

TAD (TYPLO=4 

OCA > tet 

OCA } 14 

1$2 TYPLX 

JMP 172 

TAD (TYPLDel 

DCA 41 

COF 82 

TAO } 12 

COF 12 

SNA 

JMP ar | 

DCA ? ti 

JMP 76 

TYPLX, 28 

TAD (TYPLD 

DCA TYPE 

Tad CRSW 

SNA CLA 

JMP TYPE es 

DCA CREW 

JMP TYPE SS 
TYPLO, @ 

8 

g 

’, 

a 

8 

COF 0 

CIF 2g 

JMP f 12 
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FTELO 4 


/AC & e4¢ 

ASUBTRACT ( FROM RETURN ADDRESS 
AQATA FIELB 4¢ 

/SAVE RETURN ABDRESS 

/GET YEXT COUNT 

/SET LOOP COUNTER 

/TEXT TABLE ADBRESS 


ACLEAR TEX? TABLE 


/TEXT TABLE AQORESS 


/MOVE TEXT TABLE . 
/FROM FIELO @ TO FIELD i 


JEND OF TENT TABLE ? 
“YES 

NO = SAVE TEX? ADORESS 
/GET NEXT ADDRESS 


/GET DATA ADDRESS 

SET TYP RETURN 7 
/GQET CARRAIGE RETURN SWITCH 
/RETURN WANTED ? 


/YES 
/RESET GARRAIGE REPURN SWITCH 


/BYBASS CARRAIGE RETURN 


/RETURN TO FIELD @ 











FIELD § 


4443 
2144 
4445 
2146 
2127 
2112 
Fiti 
112 
8113 
2114 
2115 
116 
@117 
2120 
8122 
#122 
2123 


2124 
2125 
2126 
24127 
8130 
2434 
0132 
21438 
2134 
8135 
136 
9137 


8140 
9441 
#142 
9443 
9144 


2145 


2146 
2147 


S 


5524 


2080 
6281 
6282 
4562 
53342 


6281 
6282 
5364 


2202 


DIALI2Z VeIS 


6eAPRa72 


11187 PAGE 112 


ALINK aSC IN FYELD J TO ASCiM IN FYELO 4 


ASCL, 


ASCL4: 
ASCL2. 


STA 
TAD } 
DCA 
TAD } 
OCA 
TAD I 
OCA 
TAQ 1 
OCA 
COF 
JMS 
ascoat 
a 

COF 
CIF 
JMP | 


ASCOAT, @ 


/LINK TO WORD IN FLELD 


WORD, 


/JbINK TO KEYCK IN PIELD @ 


8 

COF 
CIF 
JMS f 
TAQ f 
DCA 
TAD 1 
OCA 
TAD ! 
COF 
DCA 
JMP 


KEYCKL, 2 
CDF 


KEYCKS, 


CIF 
JMS 1 
JMP 


COF 
CIF 
JMP 1 


#209 


Te 

(WOROL 
(ASCWD 
peyece 
(COETWD 
OC TWO? 
(ASCCH 


12 
ASECHO 
WORDS 


a0 
Be 

(KEYLA 
KEYCKL 


22 
22 


(KEYCK#4 


fac & =} 

/RETURN ADBRESS ef 

/DATA ADDRESS 

/GET FIRST WORD FRO FIELD 2 


/SAVE 

/GET SECONS WORD FROM FIELD @ 
/SAVE 

/SET DATA FIELO f 

/CONVERT TO aSeli 


/OATA FIELS o 
INSTRUCTION rE 08 

7JMS 7O WORD LIN pileup g 

/GET THE asc yond wy TELO @ 
Ae, oefKe 

/GET re Q n NOAB Prom FIELO @ 
gaTone IN PIE 

/GET CANINATOR SHAR FROM FIELD @ 
PRETURN TO FLELD 4 

STORE IN PLELO f 


/CHANGE TO FELD 4 


/UMS TO KEYCK LINK IN FLELO 8 
/RETURN 


/GO TO KEY@K+4 IN PIELA 8 





APG ney ma my epteleadsuncdiecanecbt dental bets ieat incaeslinecterehilane sheen LL 


DIAL@2 


TYREG, 


GETREG, 


OUTFLO, 


GETXT, 


V88S 


2 


SaAPRa72 


GETREG 
RTAD 
.%2 
TYPE 


TYREG 


(ROUT 
18 
(#36 
T12 
(4948 
12 
T12 
ag 


— REGFLD 


(COF 
QUTFLD 
(ROUT 
GETX? 
REGAD 
12 


712 
AS@1@ 


REGAD 
GEFX? 


GEPREG 
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/TYPE CONTENTS OF A PEGISTER 
/GET DATA FROM REGISTER 
/GET REG TEXT ADDRESS 


/TYPE TEXT AND DATA 
/TEXT ADDRESS 

/QATA ADDRESS 
/TERMINATOR 

/EXIT 


/CONVERT REGISTER TO ASCI! 
/AND STORE IN TEXT BUFFER 
/GET FEXT BUFFER ABDODRESS 


/6@ CHARACTER WORD COUNT 
ASET COUNTER 

/STORE ASCY] SPACES 

/UN TEXT BUFFER 

JEND OF BUFFER ? 

JNO © CONTINUE 

/GET REG DATA FIELB 
/MOVE TO BITS 608 


/MAKE "CDF" INSTRUETION 
ASTORE IN OUTPUT rYELD 
/GET DATA PEXT a6 Ess 
SET TEXT POINTER 

/SET REG DATA FIeELO 

/GET REGISPER Bata 

/SET PROGRAM DATA FIELB 
/SAVE REG BATA 

/CONVERT REG DATA 70 aSct] 


/INC REG POINTER 
INC TEXT POINTER S$ TIMES 


ZEND OF REGISTER ? 

AGCONVERT NEXT WORD 

AYES » STORE TERMINATING ZERO 
EXIT 














FrEL® ft 


2251 
8252 
2253 
8254 
8255 
3256 
3257 
0268 
0261 
9262 
0263 
0264 
9265 
0266 
0267 
0270 
8274 
9272 
8273 
274 
92975 
8276 
8277 
9300 
0301 
8302 
0303 
8304 
0305 
3306 
8307 


fia, 


Zl \ 
j 


es og 


2200 
1774! 
4372 
7548 
5261 
1367 
7740 
5263 
4766! 
565i 
1365 
3932 
1764! 
7404 
7906 
1373 
3342 
1763! 
3234 
17624 
7048 
3223 
1361 
3030 
2023 
76418 
563i 
7344 
3933 
7004 
3233 


DJALI{o VOSS 


YCHECK, 2 


TOATA, 


TAD 
TAD 
SPA 
JMP 
TAD 
SPA 
JMP 
JMS 
JMP 
TAO 
OCA 
TAD 
RAL 
RTL 
TAD 
OCGA 
TAD 
DGA 
TAQ 
CMA 
DCA 
TAD 


CLA 


Cll, 


ov 
ChL 


6akPRel2 


TYBUF 
(#62 


164 
(e412 


i 
SCAN 
TCHECK 
(CRLF 
RTAD 
TOAD 


(COF 
TOFLOD 
TOADS1 
DABD 
TOAD#2 
TCNTR 
(Dadd 
REGAD 
TONTR 
TCHECK 
aa 
RWENT 


REGFLOD 
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/GET FIRST ARGUMENT 


/}S ARG LESS THAN 68. 
/YES @ CANNOT BE A DATA REQUEST 


71S ARG GREATER fHAN 67 ? 

JNO = THIS ITS & BATA REQUEST 
/ARGUMENT 1S A REG REQUEST 
/RETURN TO TTY MONITOR 

/GET TEXT ADDRESS 

/STORE IN REGISTER TEX? ADDRESS 
7GET FIELO DESIGNATOR 

/MOVE TO BITS 608 


/MAKE CORRECT "COFH INSTRUCTION 
/GORRECT PROGRAM 

/GET DATA ADDRESS 

/STORE IN ADORESS POINTER 

/GET WORD @OUN? 


/STORE IN TEMP COUNTER 
GET DATA AODRESS | 
/STORE IN REGISTER AOORESS 
END OF WORD COUNT ? 

/NO = TYPE NEXT? WORD 

/YES @ FINISHES 


JAG B 92 | 
SET REGISTER WORD COUN? 
/SET REGISTER Pre.B fo 4 


pest aetna 


cis ihren ee Sy = 





= ee ee 


TS Ty enn hk Si Rn St 


OTALLD 


TOFLD, 


VE8S 


COF 
TAD 
COF 
OCA 
JMS 
1S2 
JMP 
TAD 
TAO 
AND 
TAD 
OCA 
JMP 


PAGE 


6eAPRe72 


DAOD 


OWRD 
TYREG 
DADD 
TOATA 
TORPLO 
(16 
(70 
(COF 
TOFLO 
TOATA 
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/SET DATA PIELO 

/GET DATA 

/RESTORE DaTa FIELS 
/STORE IN BATA WORD 
/TYPE DATA 

/INC DATA ADDRESS 
/GET NEXT BATA WORK 
/FIELO OVERFLOW 

/tNC GDF INSTRUCTION 
/EXTRACT FYELO BITS 
/MAKE NEW @DF INSTRUCTION 
/UPDATE PROGRAM 

AGET NEXT BATA WORE 











FYELO 4 


490 
2404 
2492 
0463 
0424 
0405 
2406 
2497 
3446 
2441 
2442 
2413 
9444 
0445 
9446 
0447 
2429 
B424 
0422 
2423 
8424 
2425 
£426 
2427 
2432 
2434 
8432 
2433 
8434 
2435 
2436 
0437 
044g 
94414 
2442 
2443 
3444 
2445 
2446 
0447 
2452 
0454 
$4382 
2483 
0454 
0455 
0456 
2457 


ag20 
7302 
1264 
7658 
4345 
1377 
3260 
1376 
3047 
1447 
745g 
5253 
7B44 
1669 
7650 
5222 
2047 
S211 
4447 
3024 
14924 
745g 
5330 
375 
1374 
3939 
143¢ 
393g 
3Q33 
1024 
0373 
7442 
7042 
7042 
7044 
3O34 
4024 
0375 
4372 
3032 
1432 
3932 
4794! 
2260 
1660 
7640 
5207 
5600 


OPAL 


SCAN, 


SCANLs 


SCEND, 


VOa3 


CLA 
Fad 
SNA 
JMS 
Fao 
DCA 
TAD 
Oca 
TAD 
SNA 
JMP 
CIA 
TAD 
SNA 
JMP 
{$2 
JMP 
YAO 
OCA 
FAS 
SNA 
JMP 


TAD 
DCA 
Tad 
OCA 


TAD 
AND 
RFR 
RTR 
RTR 
CIA 


TAD 
ANO 
TAD 
DCA 
TAD 
DCA 
JMS 

Sz 


SZA 
JMP 
JMP 


Chl. 
CLs 


I 
CLA 


CLL 


I 
TAD I 


Cla 


6eAPRe72 


TYBUF 


LOBUF 
(T¥BUF 
TPNTRL 
(TWOed 
17 
1? 


SCEND 
TPNTRL 


2*3 
17 
SCANL #2 
47 


rea 
Tee 


MOBE 
(77 
CRPNTR. 
REGAD 
REGAD 
REQAD 
REGFLO 


729 
(7908 


TYREG 
TPNTR4 
TPNTRS 


SCANL 
SCAN 
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/GET FIRST ARGUMENT 

A\S 17 Bi? : ; 
/YES @ LOAS BUFFER WITH ALL ARGUMENTS 
/GET BUFFER ADBRESS 

/STORE JN POINTER 

/GET REGISTER TABLE ADBRESS 


/GET ARGUMENT FROM TABLE 
/END OF TABLE ? 
/YES » NO COMPARE 


/COMPARE WITH INPUT ARGUMENT 
/MATCH ? 

/YES 

/INC TABLE ADORESS 

/CHECK NEXT ARGUMENT 

/GEY REGISTER ADBSRESS 

/SAVE If 

/RESTORE ac | 

/ADORESS # 9900 2? ~~ 

/YES @ MODF {S a SPECIAL GASE 
/EXTRACY ASORESS PAINTER BITS 
/AQD POINTER TABLE ADDRESS 


/GET REGISTER AQORESS 
/STORE IN REGISTER ABDRESS 
/SET REGISTER FIELB « @ 
/GET REG ABORESS 

/EXTRACT WORD COUN? 

“MOVE TO BITS 6ef4 


/SET REG WORD COUN? 

/GET ARGUMENT 

/EXTRACT ABDRESS POINTER 
/ADDRESS OF TEXT TABLE 


/GET TEXT ADDRESS 

/STORE IN REG TEXT POINTER 
/TYPE REGISTER CONTENTS 
/YNC ARGUMENT POINTER 


ZEND OF ARGUMENT LIST ? 
/NO = PROCESS NEXT ARGUMENT 
/YES » EX]? 











Ltt 39¥q chtudveg 


S282 
8282 
2222 
O02 
2222 
220¢ 


S994 
rI>Y 
£902 
C9Fu 
THe 
Z9vu 


tT Glal4 


ce eee ae lh dias ERE TEN mere ARTA NTPAEE ES OF] Ph 
YT Trypan tnt eet MA EMOCTAAT INEM aA Oa eae: eran tr ” + 


Se menage Far ES. 


FIELO 4 


2545 
2516 
2547 
520 
2524 
2522 
2528 
2524 
2525 
2526 
2527 


2530 
2531 
8532 
8535 
8534 
8535 
2536 
8537 
8549 
0541 
8542 
8543 
2544 
0545 
8546 
8347 
2552 


WY 


2008 
1378 
3047 
1376 
3016 
1446 
7452 
5745 
3447 
2016 
5322 


6204 
1767 
7040 
7630 
5344 
4766 
7740 
5342 
7084 
7004 
7004 
62i1 
71406 
7006 
7906 
4365 
3764/ 
4763! 
2054 
LY) 
5253 


1002 
2068 
2342 
2082 
S028 
2463 
2282 
1746 
7782 
9704 
®077 
2633 
0464 
3692 


eJALi2 v2as 


LOBUF, 


MODE, 


FMODE, 
EMOOE, 
DMODE. 


2 
TAD 
SCA 
7A5 
OCA 
TAD 
SNA 
JMP ] 


RTL Col 


PAGE 


6eAPRe72 


(JYBUF et 
17 
(TwOed 


oo 
(ERM 


EMODE 
(COMREG 
OMODE 


12 


(2348 
MTEXTe? 
TYPE 


SCEND 


114107 Pace 1:48 


/,0aD ALL ARGUMENTS INTO BUFFER 
/GEYT BUFFER ADDRESS 


ZADDOR OF ARGUMENT TABLE 


/GET ARGUMENT FROM TABLE 
END OF TABLE ? 

YES ew» EX]? 

JNO © STORPF IN BUFFER 
/INC POINTER OVER ADDRESS 
/GET NEXY @NTRY 


/DATA JS IN FIELD B 
/GET EPM CONTROL REGISTER 


VEPM MODE 9 

/YES 

/GET COMMAND REGISTER 
/FLOATING POINT MODE 2. 

7NO © MUST BE BOUBLE PRECISION 


/RESTORE PROGRAM DATA FIELD 
/MOVE CHARACTER TO LEFT 
/HALF OF THE AE 


/MAKE ASCIY CHARACTER 


/STORE IN TEXT STRING 
/TYPE MODE s X 


/RETURN TQ SCAN 


FLELO 4 


3602 
AGAL 
26n2 
ZOAS 
8604 
2685 
2696 
2687 
2640 
0641 
86412 
G613 
8614 
F645 
2616 
9647 
2620 
C624 
2622 
O623 
2624 
2625 
2626 
2627 
2638 
0631 
2632 
8633 


DYALL2 


TY 2; 


TY4OL 


Vas 


TAD 
QCA 
TAD 
OCA 
DCA 
{$2 
JMP 
TAD 
DCA 
TAD 
OCA 
Tad 
DCA 
JMS 
TAD 
OCA 
TAD 
OCA 
TAD 
TAD 
Sda 


CLA 


bBeAPRe72 


(#24 
Tia 
(TOADeL 
10 

12 

T10 

"2 
(TYBUF el 
17 

(3 
a8 
(TOADs4 
16 
WORDS 
ASCWD2 
17 
OCfwoe 
16. 
ASECHS 
(#218 


od 
17. 
TCHECK 
KEYCKS 
Tie 
TYLOLe4 
TYSOL 
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/GET BUFFER COUNT 
/JSET COUNTER 
/GEY ADDR OF ARGUMENT BUFFER 


/CLEAR ARGUMENT BUFFER 
/FINISHED 9? 

/NO * CONTINUE 
/ADDOR OF ARGUMENT SUFFER 


/GET DATA ARGUMENT COUNT 
/SEY 3 WORD COUNTER 
/ADDRESS OF DATA ARGUMENT BUFFER 


/ALLOW TTY INPUT 

GET ASCII INPUT 

/STORE IN ARGUMENT BUFFER 
/GET OCTAL INPUT 

/STORE IN SATA ARGUMENT BUFFER 
AGET TERMINATOR CHARACTER 
/SUBTRACT BARRIAGE RETURN 
/INPUT TERMINATED BY RETURN ? 
/NO » GET MORE ARGUMEN?S 
/STORE TERMINATOR BERO 

AYES © CHEEK TYPE OF REQUEST 
RETURN TO MONITOR 

/THIRD INPOT ? 

NO = GET NEXT ARGUMENT 

AYES © RESET COUNTER 





2634 
2635 
2636 
2637 
2642 
2644 
642 
2643 
0644 
2645 


8646 


2647 
2680 
0631 
8682 
2633 
2684 
6655 
2656 
2657 
26608 
0661 
2662 
2663 
86464 
£665 
8666 
8667 
8672 
671 
0672 
#673 
8674 
2675 
2676 
2677 
8789 





ATALi2 VeIs 


6eAPRe72 


7,°Y COMMAND ARGUMENT TABLE 


TWO, 





2247 
2622 
2617 
2594 
GO84 
2682 
9082 
2683 
4924 
2624 
8198 
8685 
2045 
2622 
2083 
8296 
1720 
8210 
8194 
Beit 
1422 
8197 
2524 
Bite 
2023 
81438 
8623 
B14 
25128 
@147 
8215 
8280 
G30 
1216 
9120 
4345 
8890 
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/PO =» PROGRAM O REG 
/FO = FPP O REGISTER 
AA 
/B 
/MQ 

LY aaa 
/PM @ PROGRAM MEMORY REGISTER 
#PC © PROGRAM FRC 
/QP = OP ADDRESS 
7AD = ADRS 
7UR 
/ST © STATUS 
PS = PROGRAM STATES 
/FS @ READ FPP STATES 
/SH = SHIFT REGISTER 
4M = MODE 
/X » INDEX REGISTERS 
/AP = APT 








am 


PEG a4 


A731 
e792 
2723 
e784 
0725 
8706 
0787 
e740 
741 
8742 
0743 
0744 
0745 
0746 
8747 
0720 
724 
8722 
2723 
0724 





B22 
192 
A832 
2236 
0044 
8052 
2066 
2005 
2970 
2872 
9204 
0731 
2736 
0241 
0200 
B724 
105 
geo 
oone 
Oea0 


DlAL12 


RPNTO, 


V223 


OREG 
SAVOM 
AREG 
PREG 
MQREG 
PFAC 
PFPC 
PIR 
OPADR 
PAPT 
PSTAT 
CSTATE 
MT2 
APT 
Xo 
SHREG 
EMEM 
a 

p 

8 


6eAPRe72 


at 
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/REGISTER POINTER TAQLE FOR TY ROUTZ A 

















2725 
2726 
2727 
2732 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2748 
2744 
2742 
9743 
2744 
2745 
2746 
8747 
8750 


2731 
8732 
8753 
8754 
8735 
87586 
8757 
&762 
S764 
2762 
2763 


764 
2765 
2766 
8767 
2770 
2774 


2772 
27738 
2774 
2775 
2776 
2777 





O222 
1725 
3367 
2325 
1725 
6241 
33566 
2925 
1371 
7042 


8767 


7412 
7012 
7012 
4351 
2966 
15714 
8767 
4354 
3725 


2080 
3572 
1572 
7686 
7084 
B3464 
1370 
8364 
1365 
3766 
3751 


0787 
6062 
2080 
2080 
C820 
0277 


0254 
73638 
7775 
3463 
2469 
7754 
1220 
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/CONVERT OCTAL WORD TO 6 BIT ASCIT 


ASCi9, 2 
TAD 1 ASCiB /GET ADDRESS OF MATA WORD 
DCA ASG4 /SAVE a 
1S2 ASC12 AUNCREMENT RETURN 
TAD { aSei2 /GET TEXT ADDRESS 
cor 12 /OATA FIELS ¢ 
DCA ASE3 /SAVE TEXT ADDRESS 
{$2 ASE19 /INCREMENT RETURN 
TAD AS¢77 /GET MASK 
CMA —Y/LEFT KALFO ; : 
AND} ASC4 EXTRACT LEFT WALF OF DATA 
CLL RTR /MOVE TO RIGHT HALP 
RTR 
RETR 
JMS ASGéB /CONVERT LEFT HALF 
1$2 ASE63 /INCREMENT TEXT ADDRESS 
TAD ASé7? /GET MASK ; 
AND 1 8 ASE4 /EXTRACT are HALF OF DATA WORD 
wMS ASEB /CONVERT RYIGHT HALF 
JMP ft aAS@12 EXIT 
ASCB, 2 /GONVERT 2 OCTAL OYGITS 
DCA AS¢5 /SAVE DATA 
TAD ASGS5 ARESTORE OATA 
RTL MOVE DATA 4 DIGiT LEF? 
RAL 
ANQ ASC1 /DELETE RIGHT ty 
TAQ ASES5 /GET CORRE@T RIGHT? OGtT 
AND ASC1 /SAVE ONLY 2 CORREET OFcres 
TAD ASt2 INSERT AS@T! MOBSFIER 
DCA 3} 8 aS@3 7STORE CONVERTED DATA 
JMP ¢ aSéB /RETURN 
Ascii, 07087 
ASC2, 6842 
ASCS, g 
ASC4, 2 
ASCS, 2 
ASC79, 97 
PAGE 


yee - 


\ y a 





ce NE a cele se es - 


~ 


FIELS ft 


1020 
1271 
1282 
1283 
1994 
1945 
1026 
1287 
1210 
1211 
1942 
1243 
1914 
1915 
1916 
1047 
1829 
1024 
1922 
1223 


1224 
1925 
1326 
1927 
18308 
1031 
1932 
123s 
1834 
1835 


1036 
1037 
1248 
1841 
1942 
1848 
1044 
1045 
1246 
1947 
1952 


7982 
7220 
1352 
4251 
1351 
4254 
1688 
2200 
7452 
5267 
3922 
1422 
7112 
7212 
7842 
4224 
1422 
4224 
2922 
5213 


0000 
0352 
7489 
5205 
1353 
7549 
1354 
1355 
4252 
5624 


2000 
1266 
6946 
6044 
524i 
6042 
7208 
60314 
5636 
6032 
3445 


D1ALi2 Vas 


6eAPRa72 
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/THIS ROUTINE UNPACKES 6 BIT PACKED ASCI! CHARACTERS ANU 
sCUTPUTS THEM TO THE TELETYPE OR LINE PRINTER IF SR1id = 1, 


TYPE, m 
CLA 
Tad 
JMS 
TAD 
JMS 
YAO 
1$2 
SNA 
JMP 
OGA 
TRET, TAO 
Chile 
RR 
RTR 
JMS 
bare) 
JMS 
1S2 
JMP 


TYPA, g 


JMP 
TTY, Y 


KSF 
JMP 


JMP 


RTR 


T2i5 
TOUT 
T2i2 
TOUT 
TYPE 
TYPE 


PRT 
TPNTR 
TPNTR 


TYPA 
TPNTR 
TYPA 
TPNTR 
TRET 


777 


TYPE SS - 


TM40 
T1290 
7240 
TOUT 
TYPA 


TCHR 


- 


2a 


TTY 
KEYCKG 


/TYPE 6 SIF PACKED ASCII] 


/ASCII RETURN 

/TYPE UT 

/LINE FEED 

/TYPE [7 

/GET TEXT ADDRESS 
/INCREMENT RETURN 

/END OF ARGUMENT STRING ? 
/YES © PRINT LINE AND EX! 
/NO © STORE TEXT ADDRESS 
/GET TEXT WORD 

/MOVE LEFT CHARACTER 

/T0 RIGHT WALF OF Ac 


/CONVERT AND TYPE 2 CHARACTER 
/GET TEXT WORD AGAIN 

/CONVERT AND TYPE RIGHT CHARACTER 
/INC TEXT ROLTNTER 

/GET NEXT WORD 


/CONVERT AG 6071 70 TRUE ASCII 
/DELETE AC O05 

ZEND OF TEXT STRING? 

AYES @ GET NEXT ARGUMENT 
/SUBTRACT ag 

/LESS THAN 607 

/YESe320 SERIES paeheabe 490 
JADD ORIGINAL 490288 

/TYPE CHARACTER 

/GET NEXT @HARACTER 


/GET CHARACTER 
/QUTPUT CHARACTER 
AWATT FOR PLAG 


/CLEAR THE TTY FLAG 


/38 KEYBOARD FLAG SET? 
/NOeRETYURN 

/AYES@CLEAR FLAG 
/BYPASS REMAINING PEXT 














Bp Gat 2 me | 


1251 
1452 
1253 
1054 
1255 
1956 
1257 
1260 
1061 
1262 
1268 
1284 
1265 


1066 


1267 
1270 
1071 
1072 
1273 
1374 
1075 
1076 
1077 
1100 
1101 
1192 
1103 
1104 
1195 
1186 
1187 
1110 
14it 


Agno 
3266 
7604 
7810 
7630 
5264 
4236 
5654 
6662 
6661 
4342 


64325. 


5654 
0900 


7604 
7040 
7620 
5600 


6662 


6661 
3504 
1556 
6652 
6664 
6661 
5321 
5689 
1352 
6666 
6661 
5386 
7300 
5600 


DIALLZ 


TOUT, 


TOHR, 


V223 


o 

OCA 
LAS 
RAR 
Sz. CLA 
JMP 
JMS 
JMP 
SFLG 
CFLG 
JMS 
_JMS 
JMP 3 


0 


SeaPpRel%2 


TCHR 


ha 
TTY 
TOUT 


LPas 
LPi2 
TOUT 
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/CHECK OUTPUT DEVICE 
/SAVE CHARACTER 
/GET SWITCH REGISTER 


/}S OUTPUT To A PRINTER ? 
/YES | 

/NO © OUTPUT TO THE TTY 
7RETURN ; 

/SET OR CLEAR FLAG IN PRINTER 
/WHICH PRINTER IS AVAILABLE ? 
AJIT YS THE LPos 

iT IS FHE LP12 

/RETURN 


/SAVE OUTPUT CHARACTER HERE 


/IF a PRINTER WAS USED, PRINT THE LINE ANO EXIT 


PRT, 


PRT8, 


LAS 


J 
CLA Chl 
JMP } 


TYRE 
PRTS8 
PTig 


at 
TYPE 
T2i5 
ei 

TYPE 


AGEY THE SWITCH REGISTER 
MOVE SRI4 TO LINK 

/WAS THE Ty USED ? 

/YES @ EXIF 

/SET OR CLEAR PRINTER FLAG 
/WHICH LINE PRINTER ? 
/LP@8 

/aPL2 END LINE CONTROL 
/CLEAR THE diy 

/PRINT THE LINE 

/WALT FOR eniNtee f0 FINISH 


/EXIT 7 
/CARRIAGE RETURN GRARACTER 
/PRINT THE LINE 

/WALT FOR PRINTER TO FINISH 


JEXYT 


Via 


f m 
f a 
i: / 
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/OUTPUT TO THE LPOS LINE PRINTER 


1112 2829 LP28, 8 


1113 6663 LSR /CHECK FOR PRINTER ERROR 
1114 7612 SKP CLA /PRINTER J8 OK 

141145 57412 JMP 1 \LPas /PRINTER JS NO? READY © EXIT 
4146 1266 TAO TCHR /GET OUTPUT CHARACTER 

4117 6666 LPC /OUTPUT !f To THE PRINTER 
1128 6661 LSF . WATT FOR PRINTER fO FINISH 
14121 5320 JMP vet 

1122 7300 CLA CLL 

1123 2342 1S2 LPs ZINC RETURN OVER LPL2 CALL 
1124 57142 JMP t = LPS8 /EXIT 


/OUTPUY TO THE LP12 PRINTER 
1125 286 LPi2, ‘4 


$1426 6654 LSE /CHECK FOR PRINTER ERROR 
4127 76128 SKP CLA /APRINTER JS OK | 
1130 8725 JMP Y LPd2 PRINTER JS NOT READY «© EXIT 
4131 1266 TAD TCHR /GET OUTPUT CHARACTER 
4132 1357 Tad ¥M212 /SUBTRACT LINE FEES 
141433 7452 SNA /aINE FEEQ ? 
41434 5346 JMP LPL2e AYES « JGNARE [YT 
4135 1368 Tad TMS /SUBTRACT @ARRTAGE RETURN 
41436 7689 SNA CLA | /CGARRIAGE RETURN ? 
4137 8346 JMP LP42eE YES © IGNORE }T_ 
4140 1266 TAO TCHR /GET OUTPUT CHARACTER 
4141 8352 AND 177 /STRIP IT 0 6 BITS 
4142 6652 LCF /CGLEAR FLAGS . 
4143 6654 LL& 7,040 CHAR INTO PRINT BUFFER 
4144 6661 L$O a /WAIT FOR PRINTER f0 FINISH 
1145 3344 JMP ad 
4146 67309 LP42e, CLA CLE 
4147 5725 JMP t= LPLe /EXIT 
1150 0245 7215, 243 
4151 P22 7242, 212 
41432 2077 177, 7 
4183 7742 ™40, 242 
4134 #100 T1092, 188 
1155 0249 T2402, 248 
1156 2812 PT40, 12 
1137 7566 7M212, e242 
1162 7775 TMS, «3 
1202 PAGE 








ene tinge tarttegr i pnt ennattrtiet en TT ae eee a 


FIELD 2 


1272 
12201 
1222 
1233 
1224 


1220 
1221 


1250 
1234 
1282 
1283 
1254 


12535 
1256 


7664 
77280 
4142 
6201 
6282 
5680 


CORD 
2000 


OTALL2 


ERRIA, 


DATERR, 


ERRTP, 


ETXT?, 
ETXT?, 


NOREP, 


ERRET, 
ERRT, 


VO2S 


g 
OCA 
LAS 
RAL 
SPA 
JMP 
JMS 
ERRE 


6eaPRe7e 


Cla 


’ 


EROUTSS 


JMS 
AND 
TAO 
OCA 
rad 
OCA 
cOF 
TAD 
cOF 
OCA 
JMS 


} 


! 


EROUT 


CRLF 
CRLF 
8 


CLA 


CLA 


ERRET 


NOREP 
ASE18 


CQOE 


(DATYXT 

ERRTL 

ERRTS 

ETXT2 

8B 

(ENTTXT 
a 


ETXTS 
TYPE 


(42 


NOREP 
(ERREGel 


17. 
CTYBUF ad 
16 
1? 


143 
16, 
iad 
16 
TCHECK 


KEYCKL 
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/SAVE RETURN ABDR 


1S SW 4 SET ? 
YES e NO REPORT 
/CONV RETURN ABDR FO ASCII 


/GET ERROR CODE 
/TYPE OF ERROR 
7ADDRESS OF TEXT TABLE 


/STORE IN TYPE ADQR STRING 
/INSTRUCTION 18 IN FIELD @ 
GET JNSTRICTION TEXT 

/RESTORE PROGRAM DATA FIELB 


/TYPE DATA 


/GET SWITCH REG 

/SEXTRACT SRO6 

/TYPE ERROR LIST 2. 

/NO © ENO OF ryPeor a 
/GET ADDRESS OF ERROR LiSt 


/ADORESS OF TYPE OUT BUFFER 


/END OF LIST ? 
/YES = 
JNO © STORE ARGUMENT 


/MOVE NEX? ENTRY 
/EERO LAST WORD OF BUFFER 


/SWH SET 7 
/NO © WAIT FOR KEYBOARD INPUT 


/GO BACK TO FIELN & 
/EXIT 


a c 


ae, 


“ Uae Ase a an senanniltentelantnceeteNere rent 7a 


“ 
FIELa & 


1257 
1262 
1261 


12642 
1263 
1264 


1365 
1366 
1367 
1378 
13741 
1372 
1373 
1374 
1375 
1376 
1377 


62231 
6222 
$765 


2208 
1122 
POe2 


2432 
254 
2463 
1264 
&B40 
1688 
6126 
1735 
8027 
1482 


8725 


1488 


DTALLG 


DOTERGD, 


ERREGs 
2BLOCK 


V233 


COF 
CIF 
JMP | 


2083S 
1122 
20 


PAGE 


GeAPReFe 


a0 
2 
(DOTERR 
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/LINK TO DOTERR IN FIELD 2@ 














FIELD 


1449 
1441 
1422 
1443 
1424 
1435 
1486 


1427 
1412 
1441 
1442 
1443 
1444 
1445 
1446 
£447 
1420 
1424 


1422 
1423 
1424 
1425 
4426 
1427 
4432 
1431 
4432 
4433 
1434 
1435 
1436 
1437 
1449 
4444 
4442 
1443 
1444 
1445 
1446 
1447 
1439 
4454 
1452 
1453 
1434 
1455 
1456 


| ): 
Xe ; 
4 
ne 


1 


CLALI2 


cObE, 


ELi2, 


TUThs 
TNOP, 


SWAP, 


V28S 


a 
COF 
TAD I 
OCA 
TAD ! 
COF 
JMP } 


TAO 
OCA 
JMS 
TAD 
Oca ft 
TAD 
TAO 
SZA CLA 
JMP 
OCA $ 
JMP 


SKP CLA 


6eAPRal2 


ag 
(ERR 
712 
716 
12 
CODE 


CERREGaL 
47 

WORDS 
ASEWDe 
1? 
ASCCHE 
(9218 


ELioee2 
47 
KEYCK® 


41127 PAGE 128 


/GET CODE PROM FIELD 2 
/GEY ADDRESS OF ERR COAE 
SAVE VT 

/GET ERROR CODE 

/RESTORE DATA FIEL6 
/RETURN 


JALLOW TTY INPUT 

/GET ASCIY INPUT 

*STORE IN BRROR LIST 

/GET TERMINATOR CHARACTER 
/SUBTRACT @ARRYAGE RETURN 
/INPUT TERMINATED BY A RETURN ? 
JNO = GET MORE INPUT 

AYES e» ZERO LAST WORD OF LIST 
/RETURN TO TTY MONITOR 


/SET CURREND DATA PIELS 

/WELL BE A CLA AFTER FIRST ENTRY 
/¥HIS 3S USED AFTER FIRST ENTRY 
/GET ADORESS OF Last PAGE 


/SAVE 
/GET STEP ROUTINE 


/SWAP STEP Wifh LAST PAGE 
/IN FYELO 8 | 

/GHANGE TO FIELD @ 

/GET WORD FROM FEELD 2 
/CHANGE BACK TO PIELD f 
/STORE WHERE STEP WAS 
/GET WORD FROM StEP 
/CHANGE TQ FIELD @ 
/STORE WHERE PS8 WAS 
/BACK TO FYELD 4 

/INC STEP ADDRESS 

/INC PS8 ABDRESS 
/CONTINUE 

/GET A CLAY 

/DELETE ENTRY SKP 

/TYPE MAINBEC NUMBER 


/TYPE ECO NUMBER 





PLELO 4 


1372 
3012 
6201 
6563 
3440 
6564 
3440 
1374 
6567 
3449 
1372 
6567 
3440 
£367 
6567 
3449 
3442 
6202 
5622 
3000 
1366 
3922 
1160 
3220 
6244 
14ig 
6204 
3429 
2020 
5307 
6202 
5402 


3477 
8180 
2202 
8402 
O021 
1088 
3282 
7563 
1264 
6787 
1620 


OJALLZ V2aS 


TEND, 


RESPSS, 


TAD 


PAGE 


GeAPRe7e2 


(OREGed 
42 
22 


18 


14127 PAGE 129 


/SYNC THE O REGISTERS 


/THE PROGRAM O REG IS IN FIELD 2 


/READ FPPed2 0 REG MSW 
/STORE IN THE PROGRAM 0 REG 
/READ FPPef{2 Q REG LS 
/STORE IN PROGRAM 0 REG 


7READ FpPef2 Q REG LSwi 
/STORE IN PROGRAM 0 REG 


JREAD FPPef2 0 REG LSW? 
/ASTORE IN PROGRAM © REG 


/READ FPPe{2 0 REG LSWS 
/STORE INPROGRAM O REG _ 
/CLEAR PROGRAM O REG EXT, 
/RETURN TO FIELD @ 

/RETURN | 

/RESTORE LAST PAGE IN PIELD @ 
/ADDRESS OF PS8 MONITOR 


/ADDRESS OF LAST PAGE 

/SAVE IN POINTER 

/SET CURRENT FLELO 

/GET PS& MONITOR 

/DATA FIELS @ 

/STORE IN PIELD @ . 

ZING ADDRESS SKP WREN PINISHED 
/NOT DONE 


/GO TO MONITOR IN PIELB @ 





x 


wo denen one Me ee TL 


FIELO 4 


1622 
1671 
1622 


1638 
1674 
1695 


1686 
1697 
1610 


1644 
1642 
1613 


1644 
1615 
1616 


1647 
16208 
16214 


1622 
1623 
1624 


4625 


1626 
1627 


1632 
1631 
1632 


1638 
1634 
1635 


1636 
1637 
1642 


1641 


1642 
16438 


‘ ZF 


2812 
2123 
12638 


7520 
2112 
1262 


204 
2122 
1644 


3292 
2133 
2053 


7420 
2114 
2439 


7442 
2142 
2705 


7449 
2154 
2737 


7449 
24714 
S383 


7449 
2177 
3607 


BOR4 
2284 
4115 


2024 
2207 
4145 


A224 
22h2 
4331 


DIAL¢2 VOaS 6eAPRa72 


SETTAB, 2818 
TINI? 
ENINIT 


7580 
TREYTCH 
FETCHS4 


O24 
TTRAP 
TRAPYL 


5200 
TOEP 
DEP +4 


7422 
TEXT? 
EXY Ted 


7442 
TOPAS 
DPADDS 


7448 
TFAODD 
FACDS 


7449 
TMULT 
PMUL Ted 


7449 
TOLV 
PROT Ved 


8084 
TLOX 
LOX4 


O204 
TALN 
ALN 


OOa4 
TATX 
ATX 
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AYNIATE 


/FETCH 


/TRAPPEQ INSTRUCTIONS 


/DEPOSIT 


/FEXIT 


7D, ©, ADQ = SUBTRACT 


FLOATING PT, ADB © SUBTRACT 


/MULTIPLY 


/DIVIDE 


/L0X 


/ALN 


/ATX 





ito, 

PEL 2 DTALL2Z Vas 6eAPRe72 14107 PAGE 131 

4644 «2024 3294 /XTA 

1645 2215 TXTA 

1646 4524 XTAL 

1647 2094 8884 /4XN 

1652 2222 TJXN 

1634 454g JXNG 

1632 2264 3804 7 JSR 

1653 2223 TYSR 

1684 4641 JSR4 

1635 8424 0404 /dSA 

1636 2226 TSA 

1657 47084 JSA2 

1642 2004 8034 Jac 

$661 2231 TAC 

1662 3830 JACI 

1663 2984 B0a4 /JMP TRUE 

1664 2234 TRUE 

1665 5936 JTRUEL 

1666 8284 2284 /dMP FALSE 

1667 2247 TFALSE 

1678 5825 JFALSEOs 

1671 8204 B84 /CLA 

1672 2262 TELA 

1673 5145 POLASd 

4674 A084 B04 /STF 

1675 2266 TSTF 

1676 5843 PSTF od 

1677 @004 B84 “STO 

1768 2980 STD 

1721 5069 FSTO#d 

1782 #004 0984 /SET EPM 

1743 22783 TSTE 


1784 59355 FSTESs 











Pere een var Oe er) wee = = = 





FTE 


1745 
1736 
1747 


17108 
1714 
1712 


17135 
1724 
1745 


1746 
1747 
1722 


1721 
1722 
1723 


1724 
1725 
1726 


4727 
1739 
1731 


1732 
1733 
1734 





7284 
2585 
5867 


2004 
2314 
5161 


2B04 
3026 
5123 


PI04 
2342 
4754 


8004 
2344 
5135 


2084 
2552 
5284 


7442 
2354 
5236 


7448 
2560 
5385 


DTALL2Z VIS 


3204 
TNEG 
NEG4 


2284 
YNORM 
NORM4 


8084 
CRLF 
FPAUSESt 


2084 
TSETB 
SETB4 


6284 
TSETX 
SETXS 


8884 
TAODDX 
ADDX4 


744@ 
TSTA 
FSTASL 


7448 
TLOA 
PLOAed 


6eAPReI2 
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AFNEG 


/NORM 


/PAUSE 


/SETS 


/SETX 


/ADOX 


STA 


“LBA 





Aa 


d 
7 


ae Gots cae | 


1735 
1736 
1737 
1742 
1741 
1742 
1748 
1744 
1745 


1746 
1747 
1730 
1754 
1752 
£733 
1754 
175 

1756 
1737 
1760 
1761 
176 

1763 
1744 
1765 
1766 
1767 


2002 
2034 
2044 
2065 
1770 
2042 
3206 
3026 
3006 


2464 
2474 
2504 
2544 
2521 
2531 
2646 
2636 
2544 
2626 
2554 
2561 
2606 
2573 
2596 
2656 
2646 
8000 


13 
Bh 
fg 
r 
ti 
b+ | 


QATTYT, 


Mt, 


VO8S 6eAPRe72 11127 PAGE 133 


FSIS 
FOS 
FMIS 
FOPIS 
FSTIS 
FAPYS 
CRLF 
CRLF 
CRLF 


/REGISTER NAME TABLE 


REGEQ, 


POEQ 
FQOEQ 
AEG 
BEQ 
MQEQ 
ACEQ 
PCEQ 
PTREO 
OPEQ 
ADEQ 
STATEQ 
PSEQ 
RSEQ 
APEQ 
XEQ 
SHEO 
MEMEO 
] 














FIEL® 4 


1772 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
2980 
2081 
2082 
2083 
2084 
2985 
2006 
2087 
2010 


2044 
2942 
2043 
2044 
2015 
2046 
2047 


2920 
2024 
2022 
2023 
2024 
2025 
2026 
2027 
2030 
2031 
2032 


2933 
2034 
2935 
2036 
2037 
2048 
2044 
2042 
2045 





4952 
4023 
2401 
2425 
2340 
5249 
4028 
TLL: 
4952 
4024 
1115 
9549 
2324 
0124 
0549 
5249 
4040 


2880 
4852 
4984 
9404 
2228 
4952 
4042 


99008 
9622 
2055 
6162 
4ga4 
1104 
4016 
1724 
4923 
2401 
2224 


2000 
4952 
4947 
4922 
0507 
4952 
4949 
4000 
2030 


FSTIS, 


PS{S, 


FAPIS, 


STRTER, 


FOtS, 


V823 


TEXT 


9 
TEXT 


TEXT 


TEXT 


2 
TEXT 


6eAPRa72 111237 PAGE 154 


"ae STATUS » " 


"a TIME STATE # " 


"» aADORS @ " 


teipei@ O1D NOT STARTH 


“ # O REG ‘i 


your 
f a. 
' 


ehh nd ee SE cae oe ee ae oo Ue, 


FIELA 4 


2044 
2045 
2346 
2047 
2352 
2054 
2252 


2233 
2254 
2255 
2056 
2937 
2260 
2064 
2062 
2063 


2364 
2945 


2067 
2272 
2074 
2072 
2273 
2074 
2975 
2276 


2182 
2104 
2102 
2103 
2104 
2105 
2196 
2107 
2140 
2144 
2142 
2113 
2144 
2145 
2146 
2147 





OTALGe 


FMIS, 


MTEXT, 


FOPYS, 


ENT: 


TINIT, 


TFETCH, 


TEXIT, 


Vaas 


TEXT 


TEXT 


8 
TEXT 


g 
TEXT 
4 
TEXT 


2 
TEXT 


Y, 
TEXT 


6eAPRe72 14187 


' » MEMORY © tt 


"MADE B ot ] 


"»e OP ADDR ® " 


"ENTER " 


"INITIATE * 


"PETCH" 


WPeXY ye 





PAGE 135 

















m7 
rc 
3 


2122 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2130 
2131 
2132 


2135 
2136 





2422 
21420 
2205 
2449 
1416 
2324 
2225 
0324 
4447 
1600 
2900 
9495 
2047 
23¢4 
2408 
800 
456 
4020 
564g 
2104 
2440 
5540 
2325 
0224 
2201 
2324 
4200 
9920 
g6i4 
4724 
2443 
1607 
4929 
2456 
4084 
2404 
4985 
4923 
2502 
4900 
e908 
1525 
1424 
1122 
1434 
4902 
1080 
m4i4 
2641 
2405 
4000 
eoee 


OYAL42 VOas 


TTRAP, TEXT 


g 
TOEP, TEXT 


8 
TOPAS, TEXT 


g 
TFADD, TEXT 


2g 
TMULTe TEXT 


a 
TOLV, TEXT 
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"TRAPPED INSTRUCTION” 


"OEPOSIT" 


"Dp, P, ADD © SUBTRACT " 


"FLOATING PT, ADD © SUB " 


"MULTIPLY " 


"DIVIDE " 


t H 
¥ 7 


FrELO 1 


cand 
2205 
2226 
22287 
2248 
2241 
2242 
2243 
2214 
2245 
2246 
2247 
2228 
2224 
2222 
2223 
2224 
2225 
2226 
2227 
2230 
2234 
2232 
2233 
2234 
2235 
2236 
2237 
2240 
2244 
2242 
2243 
2244 
2245 
2246 
2247 
2230 
2251 
2252 
2253 
2284 
2255 
2256 
2287 
2269 
2264 
2262 
2263 
2264 
2265 


1494 
7909 
2000 
A114 
1600 
Agog 
M124 
Sooo 
2008 
3924 
8186 
Agee 
1232 
1609 
eoee 
1223 
220g 
a009 
1223 
91280 
2gn9 
1201 
e3og 
gag 
1275 
2842 
9317 
1604 
1124 
1127 
4642 
2422 
2505 
4980 
9900 
1215 
2942 
0347 
1694 
1124 
1147 
1642 
0604 
4423 
o59¢ 
A080 
2683 
1404 
490% 
ey 


JTAL42 


TLIX, 


TALNs 


TATX, 


TXTA, 


TUXN, 


YJSR, 


TUSA, 


TJAC, 


TTRUE, 


VO8S 


TEXT 


2 
TEXT 


2 
TEXT 


2 
TEXT 


" 
TEXT 
g 
TEXT 
g 
TEXT 


My 
TEXT 


2g 
TEXT 


2 
TFALSE, TEXT 


TCLA, 


Y 
TEXT 


ln, 


6eAPRe72 11187 PAGE 137 


wLoxe 


WALNT 


wArK" 


"Xtan 


mXne 


"ISR! 


"Sat 


wgac" 


"IMP CONDITION TRYE " 


"MP CONDITION FALSE” 


wreliA " 

















FIELD & 


2266 
2267 
2272 
2274 
2272 
2273 
2274 
2275 
2276 
2277 
2300 
2304 
2302 
2303 
2304 
2305 
2306 
2307 
23%0 
2344 
2342 
2343 
2344 
2315 
2316 
2347 
2320 
2324 
2322 
2323 
2324 
2325 
2326 
2327 
2330 
2334 
2332 
2333 
2334 
2335 
2336 
2337 
2340 
2341 
2342 
2343 


2324 
0422 
244g 
1620 
ogeg 
2324 
9422 
2449 
25aQ 
S290 
2324 
122 
2442 
0400 
0200 
0616 
0597 
4209 
oee0 
2616 
1722 
1500 
0aa0 
2620 
2042 
2081 
2523 
05536 
5656 
5656 
174 
2449 
1517 
9495 
4924 
1740 
@3$17 
1624 
1116 
2505 
4000 
A220 
2305 
2422 
4909 
ege0 


OTAL12 


TSTF, 


TSTE, 


YSTo, 


YNEG, 


TNORM, 


TPAUSE, 


TSETB, 


VOaS 


TEXT 
TEXT 


g 
TEXT 
a 
TEXT 
2 


TEXT 


2 
TEXT 


Y 
TEXT 


6eAPRae72 14107 PAGE 136 


"START FM 


"START EC" 


HSTART D" 


"WPNEG i] 


"FNORM" 


MPOP PAUSE, .e:12AL) MODE TO CONTINUE " 


"SETS ee 


Sar 
Z 
f 


bile ted Lb) des sine et 


- 


i 
‘ 


FIELD 4 


2344 
2345 
2346 
2347 
2352 
2354 
2352 
2583 
2354 
2335 
2336 
2357 
2369 
23564 
2362 
2363 


25A5 
2439 
4020 
2BAB 
9124 
2432 
4022 
B20 
2623 
2484 
4080 
S029 
2614 
6401 
4020 
8080 


DIALL2 VOSS 


YSETx, TEXT 
M4 

TADOX, TEXT 
g 

YSTA, TEXT 


g 
TLOA, TEXT 


OyVZ, TEXT 


@ 
OLVOvV. TEXT 


Y, 
EROUT, TEXT 


beAPRw 72 11127 PAGE 139 


NSETX " 


"AND " 


"PSTA © 


"FLOA " 


"DIVIDE BY ZERO " 


"OfVIDE FIXED POINT OVERFLAW" 


NERROR 27777 # " 














oR 


FIELD 4 


2424 
2425 
2426 
2427 
2430 
2434 
2432 
2433 
2434 
2435 
2436 
2437 
2440 
2444 
2442 
2443 
2444 
2445 
2446 
2447 
2450 
2454 
2482 
2483 
2454 
2455 
2456 
2457 
2460 
2464 
2462 
2443 
2464 
2465 
2466 
2467 


2472 
2474 
2472 
2473 
2474 
2475 
2476 
2477 


2592 


KS 


2546 
7425 
226 
1447 
2702 
e202 
0516 
044g 
2422 
0103 
0508 
9908 
2456 
2056 
4001 
0404 
5523 
2502 
2422 
0103 
2442 
1726 
9522 
8614 
4727 
4g00 
eee 
5208 
one 
2022 
1707 
4047 
4922 
2507 
4075 
4g 


LT: 
8620 
2049 
4047 
4822 
0507 
4975 
4042 


2880 


DTALs2 


VFER, 


EQP, 


DPFLOW, 


AST, 
POEQ, 


FOEQ, 


V2a3 


TEXT 
TEXT 


g 
TEXT 


g 
TEXT 
2g 
TEXT 


‘ 
TEXT 


6eAPRe72 41127 PAGE 140 


"UNDERFLOW" 


"END TRACE" 


"D'P, ADDeSUBTRACT OVERFLOW " 


Watt 


"PROG O REG s " 


"Pep @ REG @ '"! 


, > 
f 4 
d 


FELD 4 SIALiG V@O3 6eAPRe72 41127 PAGE 141 


AL Ae A eed eR en en anne ie See 





2501 
2582 
2588 
2504 
2585 
2596 
2597 


2540 
2541 
2542 
2513 
2544 
2545 
2546 
2547 


2520 
2524 
2522 
2528 
2524 
2525 
2526 
2527 


2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 


2540 
2544 
2542 
2543 
2544 
2545 
2546 
2547 


2552 


9142 
2205 
2742 
4949 
42-42 
4075 
4042 


2000 
9240 
2205 
0740 
A040 
DAD 
4048 


eoae 
1524 
4O22 
0587 
4949 
4049 
4075 
4042 


rr) 
0684 
BI4D 
4040 
449 

94.2 
4075 
4949 


BBD 
1722 
4001 
2404 
2242 
4949 
4075 
4042 


ABD 





AEQ, 


BEQ, 


MOEQ, 


AGEQ, 


OPEQ, 


TEXT 


Q 
TEXT 


TEXT 


My 
TEXT 


2 
TEXT 


"A REG 


"B REG 


"MQ REG 


"PAC 


"OP ADDR 


" 




















FIELD 4 


2554 
2552 
2553 
2554 
2555 
2556 
2557 


2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 


2570 
2571 
2572 
2573 
2574 


2575 
2576 
2577 
2682 
2684 
2682 
2688 
2604 


2605 
2606 
2687 
2640 
2644 
2612 
2643 
2644 


2645 
2616 
2647 
2620 
2624 
2622 
2623 
2624 


2625 
2626 
2627 
26302 


2524 
2124 
2523 
4042 
4840 
4075 
4042 


2220 
2022 
1737 
4923 
2402 
2425 
4975 
4042 


2280 
0120 
2442 
4975 
4049 


2200 
1116 
2495 
3242 
2285 
8723 
4975 
4040 


2020 
0628 
2042 
2524 
8124 
0540 
4275 
4042 


age 
2620 
034p 
4040 
4940 
4042 
4975 
4940 


S220 
0104 
2228 
4240 


DI ALIS 


V2OS 


STATEQ, TEXT 


PSEQ, 


APEQ, 


XEQ, 


RSEQ, 


PCEQ, 


ADEQ, 


g 
TEXT 


TEXT 


TEXT 


8 
TEXT 


TEXT 


TEXT 


6abPRe72 


"STATUS 


"PROG STATE ® 


"APT 


"INDEX REGS 8 


"FPP STATE 


"FRC 


"ADRS 


"9 


" 


PAGE 142 


a 
\ 


\ nee 


Mee fat, Red tek ne enh apne ete 


dt ee ent eins Tammie ten Snare 


i 


FIELS 4 


2631 
2632 
2$33 
2634 


2635 
2636 
2637 
2640 
2641 
2642 
2643 
2644 


2645 
2646 
2647 
2632 
2684 
2632 
2633 
2634 


2685 
2636 
26387 
2662 
2661 
2642 
2663 
2664 


2665 
2666 
2667 
2670 
2674 
2672 
2673 
2674 
2695 
2676 
2677 
2708 
2784 
27A2 
2703 
27 A4 
2795 
2756 
2707 


4042 
4042 
4275 
4942 


892.2 
L122 
4042 
4042 
4042 
4042 
4975 
4942 


S022 
1595 
1517 
2231 
4922 
8587 
4075 
494 


8929 
2318 
8624 
4983 
1624 
2248 
4975 
424g 


BRL 
#546 
2495 
2240 
2324 
B529 
4015 
4784 
8520 
8898 
8530 
1124 
4823 
2405 
2042 
1517 
2495 
4032 
M229 


STaALa2 


PTREQ, 


MEMEO) 


SHEQ, 


INSTEP, 


OUTSTP, 


V293 


TEXT 


, 
TEXT 


8 
TEXT 


TEXT 


TEXT 


6uaPRa72 114127 PAGE 142014 


NTR 2 W 


"MEMORY REG & " 


"SHFT CNTR & " 


NENTER STEP MQDE® 


"EXIT STEP MODE ™ 











Re ee enema 


FYELO 4 


2740 
27144 
2742 
2743 
2714 
2715 
2746 
2747 
2720 
2724 
2722 
2723 
2724 
2725 
2726 
2727 
2730 
2734 
2732 
2733 
2734 


2735 
2736 
2737 
2740 
2744 
2742 
2743 
2744 
2745 
2746 
2747 
2780 
2784 
2752 
2783 
2754 
2735 
2786 


2787 


3 3 
te J 


7777 
7777 
4940 
4ga0 
Ba00 
7777 
7777 
4000 
8200 
0522 
2217 
2240 
2301 
2641 
1687 
4002 
2024 
4gi2 
1649 
8530 
1124 


S280 
5292 
5240 
2422 
G188 
8585 
8520 
1349 
3252 
5242 
4019 
O14 
1684 
9383 
4061 
6255 
2462 
2484 


8829 


D1ALL2 Vas 


ASADJOR, TEXT 


2 
ADOR, YEXT 


8 
APTERR, TEXT 


] 
MDEC, TEXT 


6eAkPRe%2 11127 PAGE 143 


"29220~=«" 


"222? " 


"ERROR SAVING APT IN EXIT# 


Nees TRACE®EPM #00 MAINDEG 120D0TA" 


oo 


2762 
2764 
2762 
2763 
2784 
2765 
2766 
2767 
2770 
2774 
2772 
2793 
2774 
2775 
2796 
2777 
3aB8 
3084 
3232 


3003 
Sone 
3205 
3206 


3207 
3948 


DIALL2 VORS 


EFCONS, TEXT 
4] 
OMK, TEXT 
CRLF, 0 
ROUT, Y, 
ZBLOCK 62 
PAGE 


bwAPRa72 


"ALL ECO’#S THROUGH #2 MUST BE INSTALLED" 


"9? " 


11127 PAGE 144 











FIELB f 


3208 
3204 
3202 
3203 
3204 
3205 
3206 
3287 
3240 
S244 
3242 
3213 
3244 
3245 
3216 
3247 
3228 
3224 
3222 
3223 
3224 
3225 
3226 
3227 
3230 
3234 
3232 
3233 
3254 
3235 
3236 
3237 
3248 
3244 
3242 
3243 
3244 
3245 
3246 
3247 
3250 
3284 
3252 
3253 





POZE 
6231 
7612 
47773 
7240 
12008 
3208 
1200 
7044 
4776! 
7649 


4763! 
2666 
2200 


PLAL12 


STEP, 


VOES 


SKP CLA 


SZA CLA 


SZA CLA 


6eAPRe72 


KEYCK 
STEP 
STEP 
STEP 
EXADOR 
a6 
CSTATE 
EPM 
TITLE 
INET 
cKO 
COMPO 


CKO 
CKOP 


CKOPAD 
CKOP 
(488 


SSTEP 
STEPSW 


SStEP 
STEP 


ENTSTP 
STEPGO 


STEPSW 
TYP 


14187 PAGE 145 


/GET EXIT ADDRESS 
/STORE RETURN ef 


/COMPARE WITH RETURN ADDRESS 
ZEXIT AT THIS ADBRESS ? 


/NO 
AYES e@ CLEAR THE FPPat? 

/JCLEAR THE PROGRAM STATE GENERATOR 
/CLEAR THE EPM CONTROL REGISTER 
/SYNG THE © REGISTERS 

7GO TO INTATE 

/CHECK O FLAG 

/GHECK O RPG ? 

/YES 


/SET FLAG POR NEXT STATE 
/CHECK OP ADDR FLAG 
/CHECK OP ADDR ? 

/YES 

/SEY FLAG POR NEXT StafeE 
/GET SWITCGR 3 

1S SWITCH 3 SET 7 

/YES e GO TO SINGLE STEP 
/SINGLE STEP MODE 

/YES | 

/GET RETURN ADDRESS 
/GOMPARE WYTH ENTER STEP ADOR 
PeNTER STEP MODE ? 

/N 


/YES » SET STEP SWITCH 


4762/4 
7642 
2745: 
4763! 
o7ts 
2202: 
4777! 


12008 
7041 
1764! 
764@:. 
5274 
47.65: 
2677 
C2oe. 
3765! 


LOB. 


cE FOE 


7728 
S35 
700% 
7422 
7804 
37462! 
6562 
3737! 
47871 
9356. 
7044 
4760! 
7649. 
5323. 
5326 


Of AL 12. 


SSTEP, 


STEPGO, 


VO83 


JMS 
7682 
ADDR 
JMS 
ADOR 


2 
JMS 
TAO 


CTA 
TAD 


SZA CLA 


6eaPRea 72 


ASC 


TYP 


KEYCK 
STEP 
EXSTP 
STEPGO 
Tye 
STEPSW 
EPM 


Cla 
NTMSC 


MT¢ 
MT2 
Mf? 
(3. 

MTd 


STEPER 
STEPERSS 


14127 PAGE 146 


/JCONVERT RETURN ADDR FO ASCl!? 
/TYPE RETURN ABDRESS 


WAIT FOR PTY INPUT 
/GET RETURN ADBRESS 


/EX1T STEP ADORESS 
/EX3T STEP MODE # 
/NO 


/EXIT STEP MODE 
/YES » RESET STEP SWITéH 
/GET EPM CONTROLS 


1S THIS A TMS STITE 
/NO © CHECK NORMAL STATE 
ASET EXECUTE 

JS THIS PMS EXECUTE? 
/NO = SET SPECTAL STATE 
SAVE LT 

/GET FPR SPATE REG 

/SAVE 

/CHECK FPP STATE 

SAVE TMSC BI?S ONLY 


Ae FPP tN THE CORRECT STATE? 
AYES © ADVANGE ANQ RETURN 











FIELD 1 


3315 
S316 
33147 
5328 
S321 
3322 
3323 
3324 
3325 
3326 
$327 
3332 
3331 


3332 
$333 
3334 
3335 
3336 
$337 
3348 
S344 


3354 
3355 
3386 
3387 
3360 
S364 
3362 
$363 
3364 
3365 
3366 
S367 
3372 
3374 
3372 
3373 
3374 
3375 
3376 
3377 


1775! 
4366 
3775 
4755! 
7610 
5326 
1280 
47844 
8000 
6564 
73280 
2208 
5600 


0800 
S682 
G880 
8020 
2082 
S080 
2030 
C920 


6707 
5516 
003 
0736 
8735 
7735 
7454 
6703 
7734 
7732 
0400 
6244 
7737 
5722 
7736 
1046 
7367 
0734 
7733 
254 
4202 


OIALL2 


NYMSE, 


STEPER, 


cADS, 


V2Z03 beaPpRe72 


TAD CSTATE 
TAD (492 
DCA CSTATE 
JMS MSTATE 
SKP CLA 

JMP +4 
TAD STEP 
uMs ERR 
ERROR B98 
FMAINT 

CLA ChL 

1S2 STEP 
JMP f STEP 

g 

4) 

g 

g 

g 

2 

e 

g 

#, 87082041090 
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INC, CURRENT STATE ®E6 


/CHECK STATES 

/STATE ERROR 

/STATES OK 

/GEY RETURN ADDRESS 

7GO TO ERROR ROUTINE 
TIME STATE ERROR COE 
/STEP FPP 0 NEXT STATE 


/RESTORE RETURN ADORESS 


/COMPARE ABDRESS STORAGE LOCATIONS 


a’ 
ae 2 


ay 


2 
& i 
x 


/FLOATING POINT EXERCISER 


2002 
2202 
MG88 
AGS 
004 
6800 
14000 
5300 
2029 
100 
1401 
4241 
2004 
4131 
4121 
1904 
1934 
4054 
1961 
1041 
0287 
e019 
0922 
8930 
9949 
4300 
7908 
3882 
0140 
9905 
9806 
8950 
6802 
6482 
7802 
7422 


DIALI2 vegs 


6aAPRa72 


JFLOATING POINT EXERCISER 


/ 
/FLIATING POINT SYMBOL TABLE 


/ 


EFEXITs2000 
EFCLASA@202 
EFLOASA0082 
EFNEGS@083 
EFNORMe 2004 
EFSTAS6000 
EFADDS{000 
EFADOMe50008 
EFSUBE2902 
FLOxXs8482 
ESETXB4104 
FSETBediiii 
EUXNas2804 
EJSRaliss 
EJSAsid2t 
EJEQs1 601 
EJAs 1034 
EdLTeies4 
EJGTe#1064 
EJNEwi@44 
EJAC80807 
EALNs@812 
FATXas&@@20 
EXTAsS2O32 
EFNOPS@240 
EFMUL 84000 
EFMULMe780¢8 
EF OL Vesge?2 
EADDXS#110— 
ESTRTFeQo05 
ESTRTOROOR6 
ESTRTESRO5Q 
TABLEL E6002 
TABLE 286408 
TABLES#7000 
TABLE 487420 


> 











14127 





PAGE 148 





/FLOATING POINT EXERCISER DIAL42@ Vaa3 6wAPRa72 41307 PAGE 149 


ALL 
JFLOATING POINT CODE AREA 
SECIS 


/ 
/THIS FIRST SECTION OF THE FPP ARITHEMATIC 

/TES? OPERATES ON RANDOM NUMBER ARGUMENTS 

/IN TABLES IF FLOATING POINT MODE 

JOR TABLES IF BOUBLE PRECISION MODE 

/TWE OPERATIONS ARE OF THE FORM AwAedA 

JOR A@A/A WHERE THE RESULT EXPECTED I$ 

/THE RANDOM NUMBER ARGUMENT ITSELF 

/THE RESULTS ARE STOREQ IN 

/TABLE2 IF FLOATING POINT MODE 

/OR TABLE4 IF DOUBLE PRECISION MODE 

/THESE TABLES ARE 492 OCTAL LOCATIONS 

/IN LENGTH AND ARE LOCATED IN NUMERICAL SEQUENCE 
JSTARTING AT LOCATION 6282 OF LOWER 4K 

/ . 


/ 
JEXEGUTE IN FLOATING POINT MODE 
/MOVE RANDOM ARG TABLEY TO TABLE 
/ 


ee | steed nan erties rads ald Maps 





en 


/FLOATING POINT 


4249. 
4Q81 
49.02. 
4983 
4gn4 
4gn5 
49%6 
4087 
404.9. 
49% -1. 
4-042 
4943: 
4944 
4925: 
404.6: 
‘B47 


sont 
4922 
4923: 


4024 
4925 
4226 
4027 
4032 
4ORL 


4g 
4234 
4935 
4236 
4937 


EXERCISER 


ESTART, 


FPP1, 


FPPIR, 


DLALia V2es 


o#4206 
FSETS} 


ESETX} 
ESTRTO 
EXTAId 
EATX!S 

E JA} 

EFNOQP 
FFNOP 
EJSR} 
EWSR) 
EUSA) 

EWA! 
ESTRTF 
EPLDAISi113 
EFPSTASSS41j 
E JSR} 
EUXNI 160) 
EPCLA 


EFADO1 2128 
EJNE! 


6aAPRe72 


BASE 
XREGL 


LINK#2 


FSET 
RANGEN 
LENK 
FPP2 


TABLEL#S 
TABLE2eS 
FOMPR 
FPPLR 


FPP4 


11127 PAGE 15¢ 


/LQAD X41 
/RESET X3 FOR REENTRY 


/SETUP FOR TST 


/LQAD FROM TABLES 

/STORE IN PABLE 2 

/GOMPARE TABLET WITH TABLE? 
/GOMPLETED BLOCK 

“Yes 


/LOCK ONTO TST 
/IP OFFSET 16 fS NON@#ZERO 














FLOATING POINT 


4240 
4941 
4942 
4943 
4944 
4945 
4346 
4947 
4959 
4951 
4952 
4983 
4984 
4985 
4936 
4957 
4268 
424614 
4942 


4263 
4964 
4g45 
4966 
4967 
4979 
4074 
4972 
4973 
4274 
4975 
4376 
4977 
4142 
4461 
4182 
4403 
4404 
4405 
4476 





EXERCISER 


1434 
5236 
1121 
5416 
1031 
4063 
8206 
O511 
6776 
6531 
7376 
1131 
5275 
2101 
4047 
8002 
1212 
1044 
4948 


4431 
SO33 
1121 
5416 
14034 
4197 
259 
osia 
4900 
6531 
640g 
1434 
5267 
2104 
4074 
aga6 
COB2 
1212 
1041 
4963 


DTAL1@ «6VaaS 


Ae APRe72 


/ 
JEXECUTE IN DOUBLE PRECISION MODE 
MOVE RANDOM ARG TABLES TO TABLES 


/ 
FPP2, 


FPP2R, 


/ 
/EXEGUTE IN EPM MODE 
/MOVE RANDOM ARG TABLEL 


/ 
PRPZE. 


FPP2ER, 


ESRI 
EySAal 
EJAs 


ESTRTO 
EFLOAISi41 


EFSTAUSSii 
EJSR) 
EUXNIL8O} 
EFCLA 


EF ADD 1218 
EWNE) 


EYSR) 
EUSA) 
EAI 


ESTRTE 
EFLOAISi43 


EFSTASS41 
EWSR} 
EUXNIS@83 
ESTRTD 
EFCLA 


EFADD{ 212 
EWJNE) 


DPSET 
LINK 
FPP2E 


TABLES#2 
TABLES#2 
BPCMPR 


FPP2R 


FPP 


TO TABLE? 


ESET 
LINK 
FRPS 


TABLES 
TABLE? 
ECMPR 

FPP2ER 


PPPOE 


11197 PAGE 154 


/SETUP FOR TST 


/L@AD RANDOM ARG 
ASTORE SAME 
/JMPeSAVE RETURN 
/GCOMPLETED BLOCK 
“YES 


/LOCK ONtO TST 
/Y® OFFSET 14 YS NON@ZERO 


/LOAD FROM TABLES 
STORE IN PABLEQ 
/COMPARE RESULTS 


/LOCK ON TQ TEST 
/YP OFFSET 10 IS NON@ZERO 


t q 
x 4 


AZFLSATING POINT EXERCISER 


4497 
4419 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4420 
4421 
4122 
41423 
4424 
4425 
4126 
4127 
4130 
4431 
$132 
4133 
4134 
41435 


1134 
4745 
1424 
3416 
1034 
4436 
0005 
0544 
5775 
1441 
S775 
24414 
5775 
6531 
6375 
1434 
5407 
2104 
4416 
8082 
1212 
1044 
4197 


DJALL2 VAS 


6" APRe72 


/ 
JEXEGCUTE IN FLOATING POI'T MODE 
/ABDD SUBTRACT TEST 


/ 
PPPS, 


FPPSR, 


EJSRI 
EWSA) 
EJA! 


ESTRTF 
EFLOAIS143 


EFADDi aii) 
EFSUB 414) 
EFSTAUSS4) 
EWSR) 

EUXNIL82) 


EFCLA 
EFADD{212 
EWNE} 


FSET 
L JNK 
FPPSE 


TABLEL#3 
TABLELe3 
TABLEL#3 
TABLE223 
FCMPAS 
FPP3R 


FPP 


11107 PAGE 162 


AJMPeSAVE RETURN 


/LOAD RANDOM ARG 
JAgA 

AAhAwA 

/STORE IN PABLE2 
AJMP@SAVE RETURN 
/GOMPLETED BLOCK 
AYES 


/LACK ONTO TST 
/tP OFPSET 44 1S NONeZERO 











/sFLOATING POINT 


4136 
4437 
41449 
4144 
4442 
4443 
4444 
4445 
4146 
4447 
4152 
4151 
4152 
4483 
4484 
4455 
4436 
4437 
4162 
4461 
4462 
4463 
4164 


EXERCISER OFALa2 Vos 


1134 
5933 
4124 
5446 
1031 
4165 
2050 
0541 
6000 
1441 
6000 
2444 
6009 
6534 
6429 
4434 
5124 
2104 
4144 
2006 
1248 
1044 
4136 


/ 


/JEXECUTE JN EXTENDED PRECISION MODE 


/ADD « SUBTRACT TEST 
/ 


FPPSE, ESRI 
EUSA 
EWA} 


FPPSER, ESTRTE 
EFLOAS5i43 


EFADD{ 4141 
EFSUBI 412) 
EPSTAISS15 
EYSRI 
EJXNIL82) 
ESTRTO 


EFADD {212 
EUNE} 


6eAPRa72 


ESET 
LINK 
FPP4 


TABLEY 
TABLEL 
TABLEL 
TABLE2 
ECMPAS 
FPPSER 


PPPSE 


44107 PAGE 153 


/SETUP INDEX REGISTERS 
/SETUP REeENTRY ADDRESS 


/START EPM MODE 
/LO8AD RANDOM ARGUMENT 


JA wa 

/hehe’ 

/STORE IN TABLE 2 
/GOMPARE RESULTS 
END OF TEST 7? 
/Y@S . 


/LOCK ON TO TEST JF 
/OPFSE? ig 1S NON@BERO 


Ge ew, pa ee oe, ee 


wh Tet adam deat eb i 


/FLOATING POINT 


41465 
4166 
4167 
4179 
4471 
4172 
4473 
4474 
4475 
4476 
4177 
4200 
4281 
4282 
4283 
4204 
4205 
4206 
4287 
4212 
4244 
4242 
4243 


i } 


aw 


EXERCISER DIALL2 v2g3 GeAPRa72 111907 PAGE 154 


/ 
ZEXECUTE IN DOUBLE PRECISION MODE 
/ADDeSUBTRACT PEST 


/ 

1131 FPP4, FUSRI DPSET /IMPeSAVE RETURN 

5296 

1121 FUSA) L INK 

5416 

1934 EWA} PPP5 

4244 

$986 ESTRTD 

ta FPP4R, EFLDAIS1i43 TABLESee2 /LQA0 RANDOM ARG 

6776 

4944 EFADD} 411} TABLES#2 /AoA 

6776 

ALS EFSUBI4143 TABLES#2 /AbdoA 

8776 

6534 EFSTA}3343 TABLE4e2 /STORE RESULT? 

737% 

pe EUSRI OPCMPR /JMPeSAVE RETURN 
95 

ae EUXNIL00) FPP4R AGOMPLETED BLOCK 

4474 

2002 EFCLA AYES 

1218 EF A001 212 Fisce ONTO TEST 

ee EJNE) FPP4 AIP OFFSET 10 IS NON#ZERO 
16 








JFLOATING POINT 


4244 
4245 
4246 
4247 
4222 
4221 
4222 
4293 
4224 
4225 
4226 
4227 
42390 
4234 
4232 
4233 
4234 
4235 
4236 
4237 
4242 
4244 
4242 
4243 
4244 


EXERCISER 


14131 
4745 
1121 
5446 
1834 
4245 
9905 
05414 
5775 
0904 
6244 
4444 
5775 
6212 
S2di 
6534 
6375 
4434 
5435 
2181 
4223 
B22 
1212 
1041 
4214 


DIAL1@ «6Vaas 6eAPRe72 


/ 
/EXEGUTE IN FLOATING POINT MODE 
/MULTIPLY@DIVIBE TEST 

/ 


FPP5,  EVSRI FSET 
EUSA} L }NK 
EWAy FPPSE 
ESTRTF 

FPP5R, EFLOAIS14) TABLELeS 
EFNORM 
EPSTA{244 
EFMULI444) TABLEL#3 
EFSTA{212 
EFOIVI(214 
EFSTALS34) TABLE2s3 
ESR) FOMPMD 
EUXN(4883 FPPSR 
EFCLA 
EF ADO 1219 
EWNEs FPRPS 


{4197 Pace 185 


/JMPeSAVE RETERN 


/LOAD RANDOM ARG 


/NORMALIZE ; 
STORE IN OFFSET 44 
Aaa 


/STORE IN OFFSET 42 
/AGAZA 

A/STORE RESULT 
/UMPeSAVE RETURN 
/GOMPLETED BLOEK 
AYES 


/LOCK ONTO Tf 
/IP OFFSET Hr Ma NON@ZERO 


ee ere 


f ’ 
\ ? 


AFLOATING POINT EXERCISER 


4245 
4246 
4247 
4250 
4251 
42582 
4253 
4254 
AQSS 


4287 
4260 
4264 
4262 
4263 
4264 
4265 
4266 
4267 
4278 
4271 
4272 
4273 
4274 
4275 
4276 


L4a34 
5033 
1121 
5416 
1231 
4277 
2Q5Q 
95-4. 
ABBE 
A004 
6242 
4444 
6 288 
&244 
3242 
5341 
$428 
11334 
5234 
e104 
4253 
AGA2 
2OB6 
1210 
4041 
4245 


/ 


OTALLS Vas 


Sw APRae72 


/EXECUTE IN EXTENDED PRECISION MODE 


/MULTIPLY = MEVIDE TEST 


/ 
FPPSe, 


FPPSER, 


EJSR) 
EYSAI 
EVAl 


ESTRTE 
EFLOAIS243 


EFNQRM 
EFSTA}242 
EFMULI4445 


EFSTAJ244 
EFDIVi242 
EFSTA(S3411 


EWS) 
EUXN1L803 
EFCLA 
ESTRTO 


EFADD S219 
EJNE) 


ESET 
LINK 
FPP6 


TABLES 


TABLEL 


TABLE? 


ECMPMD 
FPP5ER 


FPPSE 


an 


14107 PAGE 156 


/SETUP INDEX REGISTERS 
/SETUP REeENTRY ADDRESS 


/LQAD RANDOM ARGUMENT 
NORMALIZE 

/STORE IN OFFSET 42 

/A @A 

/STORE IN OFFSET 44 
JRoaSsA 

/STORE RESULT IN TABLE 2 
/GOMPARE RESUL? 


/END OF TES ? 


AYES 


JOCK ON TO TEST IF 
/OPFFSE? TQ I$ NONeZERO 











FLOATING POINT 


4277 
4399 
4394 
4382 
4303 
4304 
4305 
4306 
4307 
4342 
4344 
4342 
4343 
4314 
4345 
4346 
4347 
4320 
4324 
4322 
4323 
4324 
4325 
4326 





EXERCISER 


1131 
5206 
1121 
5416 
1034 
4327 
0006 
A541 
6776 
4444 
6776 
6212 
3444 
6776 
6531 
7376 
1434 
5275 
2404 
4306 
BeBe 
1212 
1044 
4277 


/ 


JEXECUTE JIN DOUBLE PRECISION MODE 
/MULTIPLY DIVIBE TEST 


/ 
FPP6, 


FPP6R, 


DIALI@ V8As 


EJSRI 
EJSAI 
EWA} 


ESTRTO 
EFLOAUSi4a3 


EFMULi 4443 


EFSTAL212 
EFOIVIi4dit) 


EFSTAISS43 
EWSR} 
EWXNIL00) 
EFCLA 


EFADDI 212 
EJNE) 


6a APRa72 


OPSET 
L JNK 
FPP? 


TABLES#2 
TABLES#2 


TABLES#2 
TABLE4e2 
OPCMPR 
FPP6R 


PPP4 


11107 PAGE 187 


/JMP=aSAVE RETURN 


/LOAD RANDOM ARG 
AAaa 


/ASTORE IN OFFSET 12 
JAeASA 


/STORE RESULT 

A JMPeSAVE RETURN 
/GOMPLETEQD BLOEK 
/YES 


/LQCK ONTO TST 
AIP OFFSET 18 IS NON@ZERO 


/FPLOATING FPIUINT 


4327 
4332 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
$342 
4344 
4342 
4343 
4344 
4345. 
4346 
4347 
4332 
4334 
4352 
4383 
4554 
4335. 
4356 
4337 
4369 
4364 
4342 
4363 
4364 
4365 
4366 
4367 
4379 


EXERCISER DTALLE Ves 


1434 
4745 
1124 
5416 
1231 
4374 
ages 
A444 
5776 
ABAS 
aB22 
Beas 
8541 
5775 
28.04 
IVE2 
Ba04 
e212 
9904 
812 
C984 
92%2 
A904 
@8i2 
65314 
6375 
14314 
5945 
2101 
4336 
9082 
1212 
1244 
4327 


&eAPRe72 


/ 
ZEXECUTED IN FLOATING POINT MODE 


/NORMALIZE*ALIEN TEST 
PPT, EJSRI 

EUSA 

EAs 


ESTRTF 
FPP7R, EFLDAi414) 


ESTRTO 
EATXI¢ 
ESTRTF 
EFLDAiSia3 


EFNORM 
EALNI@ 
EFNORM 
EALN{@ 
EFNORM 
EALNI2 
EFNORM 
EALNI@ 
EFNORM 


EPSTALSSS 
EWSR) 
EUXN!d00) 
EFCLA 


EFADOD 1212 
EJNE} 


FSET 
LINK 
PPPTE 


TABLEL#2 


TABLEL#S 


TABLEQ2#3 
PCMPR 
FPPIR 


PPP? 
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/JMPaSAVE RETURN 


/LOAD RANDOM ARG 


/STORE IN IR 2 
/L@AD RANDOM ARG 


/NORMAL TBE 
/ALIGON ON TR 2 
AETC 


ASTORE RESULT 
/JMPeSAVE RETURN 
/COMPLED BLOEK 
AYES 


/LOCcK ONTO TST 
/YP OFFSET 1@ YS NONZERO 








/FLOATING POINT 


4371 
4372 
4373 
4374 
4375 
4376 
4377 
4400 
4404 
4492 
4493 
4404 
4405 
4406 
4497 
4440 
4444 
4442 
4443 
4444 
4445 
4416 
4417 
4420 
4424 
4422 
4423 
4424 
4425 
4426 
4427 
4430 
44314 
4432 
4433 


EXERCISER O1a4Li8 veas 6eAPRe7e2 


/ 
/JEXECUTE IN EXTENDED PRECISION MODE 
/NORMALIZE @ ALIGN TEST 


/ 
1131 FPP7E, EJSRI ESET 
5033 
4421 EJSA! L INK 
5416 
1031 EWA} FPP1O 
4434 
2050 FPP7ER, ESTRTE 
e444 EFLDAS4143 TABLEL+4 
6004 
9986 ESTRTO 
9922 EATX!2 
1050 ESTRTE 
O544 EFLDA]S4113 TABLEL 
6002 
9004 EFNORM 
B812 EALNI2 
0904 EFNORM 
2842 EALNI@ 
7904 EFNORM 
@812 EALNIi@ 
ega4 EFNORM 
G12 _ EALNI2 
oo04 EFNORM 
C012 EALN{@ 
65341 EFSTAISS4} TABLE? 
6499 
1131 EYSR) ECMPR 
5267 
2191 EUXN! i803 FPPVER 
4377 
2082 EFCLA 
0006 ESTRTO ses 
1212 EFADD{ 210 
19441 EJNEs FPPT7E 
43714 


11127 PAGE 159 


/SETUP INDEX REGISTERS 
/SETUP RESENTRY ADDRESS 


/SSTARF EPM MODE 

/LOAD RANQOM ARG FROM TABLE 1& 
ASTORE IN ENDEX REG 2 

7LOAD RANDOM ARGUMENT 


/SFTORE RESULT IN TABLE 2 


/END OF TEST ? 
/YES 


/LOCK ON fo TEST [F 
/IP OFPSE? 10 YS NON@ZERO 


(iim, , | . 


/FLOATING POINT EXERCISER SIAL{@ Veas Se APRe72 44407 PACE 162 


/ 
/EXECUTE IN DOUBLE PRECISJON MODE 
/TES?S SHIFTING OF YHE FAC VIA ALN INST 
JINDEX REG 4 CONTAZNS NUM RIGHT SHIFTS 
/INOEX REG 5 CONTAINS NUM LEFT SHIFTS 


/ 
4434 1131 FPPiga, EVJSRI BPSETYL /JMPeSAVE RETURN 

4435 5247 

4436 1121 EWSAI LINK 

4437 8416 

4449 1631 EVA} FPP1t /GO0 TO NEXf TEST 

4444 4467 

4462 BRN ESTRTO 

4443 8712 FPPIGR, EFLDAI712 /LOAD RAN ARG FROM TABLE 3 
4444 «6914 EALN! 4 /Saieft via IR 4 

4445 8245 EALNIS ASAIFT Via IR 5 

4446 0044 EALNI4 AEC 

4467 2615 EALNI5 

445g Ooi EALNIG 

4481 8845 EALNIS 

4452 8844 EALNI4 

4483 8245 EALNIS 

4484 9944 EALNI4 

4485 9045 EALNIS 

4486 6731 EFSTAIL731 ASTORE RESOLY IN TABLES 
4457 41131 EWSRi OPCPRY /JMPeSAVE RETURN 

4468 5395 : 

4444 2404 EUXNILOG) FPPIOR /GOMPLETED BLOEK 

4462 4643 

4463 2992 EFCLA ‘yes | 

4444 12i0 EFADDI21¢ /LOCK ONTO TST 

4465 1041 EJNE} FPP<® /TP orPSet 17 YS NON@ZERO 


4466 4434 














JFLOATING POINT 


4467 
4479 
4474 
4472 
4473 
4474 
4475 
4476 
4477 
4599 
4504 
4502 
4593 
4594 
4505 
4586 
4507 
4540 
4541 
4542 
4543 
4544 
45<5 
4546 
4547 
4529 
4521 





EXERCISER DTAL4@ =vaas 


1131 
4757 
1121 
5416 
1031 
4522 
9905 
8743 
1734 
6222 
0613 
5634 
8634 
2222 
1204 
4519 
9900 
pois 
6634 
4134 
5945 
2104 
4496 
8202 
1219 
1044 
4467 


/ 


EXECUTED IN FLOATING POINT MQDE 


6eAPRe72 


7a9D 79 MEMORYeSUBTRACT TEST ; 
/PRELIMINARY COMPARE OF FADDM AND FACD RESULTS MADE 


/THEY SHOULD BE EQUAL 
PPL, EVSRI 

EUSA) 

EJAI 


ESTRIF 
FPP1GR, EFLDAI7IS 
EFADDI7S4 
EFSTAL222 
EFLOALELS 
EP ADOMI634 
EFLDAI6S4 
EFSUBI 222 
EJEQ! 


EFEXST 
GOii, EFLOAI6IS 

EPSTAIAS4 

ESR} 


EUXNI100) 


EFCLA 
EFA0D{210 
ENE} 


FSETL 
LINK 
FPPIiLE 


GOLi 


FOMPR 
FPPAiR 


FPPi4 
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J JMPeSAVE RETURN 


/LOAD RAN ARG FROM TABLES 
/hoa 

/STORE IN OFFSET 22 ; 
/LOAD RAN ARG FROM TABLES 
/AbA TO MEMORY 

ALOAD Ass ; 
/SUBTRACT OFFSET 22 
ASMOULD EQUAL BERO 


/FAODM AND FADS RESULTS DIFFER 
/L0a0 ARG IN TABLES 

/STORE BACK IN TAGLE2 
/JMPeSAVE RETURN 


/COMPLEYED BLOEK 
AYES 


F 
/LQCK ONFO TST 
/1P OFFSET 18 YS NON@ZERO 


a 


silly, 


‘ 
A 
ie 
i 


AFLOETING POINT EXERCISER DLALi@ VOCs Be APRe72 44127 Pach 162 


/ 

/EXECUTE IN EXTENDED PRECISION MODE 
/ADD TO MEMORY - SUBTRACT TEST 
/PRELIMINARY COMPARE OF FADDM AND FADD 
/RESULTS SHOULD BE EQUAL 

/ 


4522 41434 FPPL4E, EVSRI ESETS /SETUP INDEX REGISTERS 
4523 5085 

4524 11421 EUSA) LINK /SETUP REeENTRY ADDRESS 
4525 5416 

4526 1034 EAs FPPY2 

4527 34555 

532 “W939 FPALER, ESTRIE /START EPM MODE 

4531 F713 EFLOAI913 /LOAD RANDOM ARG FROM TABLE 1 
4532 1734 EFADDS 734 sAwA 

4533 6230 EFSTAL 230 /STORE IN OFFSET 36 

4534 0643 EFLDAL613 /JLOAD RAN ARG FROM TABLE 4 
4535 5634 EFADDMI634 Ah # A TO MEMORY 

4536 2250 EFSUBI 230 /SUBTRACT OFFSET 32 

“#537 «2001 EJEQ) GOLLE /SMOULD EQUAL BERO 

4549 45462 

4541 2000 EFEX! : 

4542 0613 GOLiE, EFLOASEL3 /L0AD ARG IN TABLE 4 

4543 6634 EFSTAL6S4 /STORE BACK IN TABLE 2 
4544 1134 EVSR) ECMPR4S /GOMPARE RESULTS 

4545 51083 | 

4546 «(2404 EUXNTL68) FPAAER JEND OF TEST 2 

4547) «8530 

‘550 28002 EFCLA AYES 

4351 18R6 ESTRTO | 

4592 1210 EF ADD} 212 /L0CK ON FD TEST JF 

4553 1044 EJNE) FPPItE AYP OFFSET 10 YS NONZERO 
4554 4522 











/FLOATING POINT 


4555 
4586 
4557 
4569 
4564 
4562 
4563 
4564 
4565 
4566 
4567 
4572 
4574 
4572 
4573 
4574 
4575 
4576 
4577 
4600 
4604 
4602 
4683 
4604 
4605 
4606 
4607 


EXERCISER 


1131 
5250 
1421 
$416 
1034 
4640 
1986 
2742 
1731 
6222 
8612 
5634 
634 
2222 
1004 
4576 
2000 
0612 
6631 
1434 
5275 
2402 
4564 
8902 
1210 
1044 
4555 


/ 
prea 1N DOUBLE PRECISION MODE 


pyAL¢@ v203 


Ge APRe72 


3) 70 MEMORYeSUBTRACT TEST 
*PREL IMINARY COMPARE OF FADOM AND FADD RESULTS ARE MADE 


/THEY SHOULO BE EQUAL 


/ 

FPP12, EWSRI 
EySal 
E JAS 


ESTRTO 
FPP12R, EFLOA{712 
EPAODDI73S4 
EFSTal22e2 
EFLOA1612 
EF ADOM{634 
EFLOAI634 
EFSUBI 222 
EJEQ) 


EFEXIT 
GOL2, EFLDAI612 

EFSTAI6S4 

ESRI 


EUXN{ 182) 
EPCLA 


EFADDI21¢ 
EWNE} 


DPSET2 
LINK 
FPP1S 


6012 


DPCMPR 
FPPY2R 


FRPi2 
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J JMPeSAVE RETURN 


/LQAD RAN ARG FROM TABLES 
Aha a 

ASPORE IN OFFSET 22 

/LOAD RAN ARG PROM TABLES 
/Aek TO MEMORY 

/LGAD RESULT A&A 
/SUBTRACT OFFSET 22 
/SHOULD EQUAL EERO 


JPADDM ANO FADB RESULTS DIFFER 
/L0AD ARG YN TABLES 

STORE BACK IN TABLES 
/JMP=SAVE RETURN 


AGOMPLETEO BLOCK 
/YES 


/,0CK ONTO 
AvP SFP SES f "Ns NONeZERO 


i a) * fe a 
\ y / j 


2 
: ke 
u 
: 5 
\ ¥ 


/FLOATING POINT EXERCISER OLALI@ V8e3 sa dPRe72 11427 PAGE 164 


JEXECUTED IN FLOATING POINT MODE 

JMULTIPLY TO MEMORY DIVIDE TEST 

/PRELIMINARY COMPARE OF FMULM AND FMUL RESULTS ARE MADE 
/YWEY SHOULD BE EQUAL 


tether nenee tne 


/ : 
4642 11431 FPP13, EVSR) FSET4 AJMPeSAVE RETURN 
4641 4757 
4612 1121 EVSA} LINK 
4643 5446 
4644 41934 EVAl FPPCSE 
4645 4645 
4646 8905 ESTRTF 
4647 e743 FPP13R, EFLDAI743 JLOAD RAN ARG FROM TABLES 
4629 8904 EFNORM /NORMALIZE 
462% 6241 EFSTAL224 ASTORE IN OFFSEY 14 
4622 4734 EFMULI734 AYY ae 
4623 6222 EFSTAL222 ASPORE IN OFFSET 22 
4624 213 EFLOAL@I4 /LOAD OFFSET if 
4625 7634 EFMULMI634 /kwk TO MEMORY 
4626 9634 FFLDAI634 /LOAD RESULT Awa 
4627 2222 EFSUBI 222 /SUBTRACT OFFSET 22 
4639 1001 FJEQ) GOL3 ASHOULB EQUAL BERO 
4634 4633 . 
4632 9900 EFEXIT /FMULM AND FMUL RESULTS DIFFER 
4633 2643 GO13,  EFLDAS613 Gey ARG If TABLES 
4634 6634 EFSTAL634 /SPORE BACK iN TABLE2 
4635 41333 EUSR} FOCMPR /JMPeSAVE RETURN 
4636 5945 | 
4637 240% FUXNIAE2) FPP13R /COMPLETFO BLOEK 
4640 4647 
4644 0002 EFCLA Aves 
4642 1240 EFADD} 210 /LOCK ONTO TST 
4643 1044 EUNEs PPPS /tP oF PSET 14 YS NONeZERO 
4644 46149 








/FLOATING POINT 


4645 
4646 
4647 
4689 
4654 
4682 
4633 
4684 
4635 
4686 
4687 
4662 
4664 
4662 
4663 
4664 
4665 
4666 
4647 
4672 
46714 
4672 
4673 
4674 
4675 
4676 
4697 
4700 
4704 
4792 


EXERCISER OLAL1@ VAs 6aAPRe72 


1434 
5005 
1124 
5416 
1034 
4793 
2250 
8743 
2004 
6230 
4734 
6232 
8232 
7634 
9634 
2232 
1001 
4679 
aee8 
613 
6634 
4134 
5103 
2104 
4653 
8802 
9006 
1212 
1244 
4645 


/ 

/EXEGUTE IN EXTENDED PRECISION MODE 
/MULTIPLY TO MEMORY © OIVIDE TEST 
JPRELIMINARY COMPARE OF FMULM AND FMUL 
ZRESULTS SHOULD BE EQUAL 

/ 


FPP13E, EJSR) ESETL 
EUSA} L JNK 
Eyal FPPL4 


FPASER, ESTRTE 
EFLDAI7418 
EFNORM 
EFSTA{23@ 
EPMULI734 
EFSTAL 232 
EFLODAI252 
EFMULMI634 
EFLDAL634 
EFSUB{ 232 
EVEQ) GOLSE 


EFEXIT 
GOL3E. EFLOAIGLS 
EFSTALES4 
EVSR) ECMPRY 


EUXNILGO) FPISER 


EFGLA 

ESTRYO 

EFADD1219 

E UNE FPPLSE 
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/SETUP INDEX REGISTERS 
/SETUP REeENTRY ADDRESS 


/START EPM MODE | 
/LGAD RANDOM ARG FROM FABLE 1 
/NORMALIZE 

/STORE IN OFFSET 38 

J/Ao@a : 

SPORE IN OFFSET J2 

/LOAD OFFSET 38° 

Jk @ A TO MEMORY 

/LOAR FMULM RESULTS 

ASUBTRAC? PMUL RESULTS 
/SROULO EQUAL #ERO 


/GET RANSOM ARG FROM TABLE 4 
/SFORE IN TABLE 2 

/COMPARE RESULTS 

/END OF EST ? 

/YES 


/LOCK ON TH TEST LF 
/OFFSET 722 1S NON@EERO 


i 
N J 
~S 


Ait, 
! \ we 


AFLOATING POINT EXERCISER NIALIO Ves AwAPR a7? 111427 PAGE 166 


/ 

JEXECUTED IN DOUBLE PRECISION “OBE 

AMULTIPLY TO MEMORVeDIVIDE TEST 

JPROL IMINARY COMPARE OF FMULM ANS FMUL RESULTS ARE MADE 
/THEY SHOULO BE EQUAL 


/ 
4703 11434 FPPi4, EJSR} OPSET2 /UMPeSAVE RETURN 
4744 5259 
4795 41121 EJSA} LINK 
4796 5416 
4707 1934 EWA) FPP4 
A719 4943 
4741 2926 ESTRTO 
4742 #712 FPP146R, EFLDAI712 /L@AD RAN ARG FROM TABLES 
4743 4734 EFMULI734 JAA ; 
4744 622 EFSTA]222 /SPORE IN OFFSET 22 
4745 612 EFLDAI412 /LOAD RAN ARG FROM TABLES 
4746 7634 EFMULMI6341 /heA TO MEMORY 
4747 8634 EFLDAI634 /L0AD RESULT AwA 
4722 2222 £FSYe{222 /SUBTRACT OFFSET 22 
4794 1904 EJEQ) 6044 ASWOULD EQUAL ZERO 
4722 4724 
4723 o9a0 EFEX!T /FMULM AND FMUL RESULT DIFFERS 
4724 8612 GO14, EFLDAI612 ALOAD ARG IN TABLES 
47295 6634 EFSTALGS4 /PuT BACK IN TABLES 
4726 1131 E WSR} DPCMPR /JMPeSAVE RETURN 
4727 5275 . 
4738 2101 EJXNI 100) FPP14R /GOMPLETFED BLOEK 
4731 4742 
4732 2992 EFCLA AYES 
4733 «1249 EFA0O} 210 /LOCK ONFO TST 
49734 0109 ELOX!I@s et 
4735 «7797 
4736 411214 EUSA} LINK 
4737 5446 
4740 2042 EFNOP 
4744 8682 EFEX!T 
4742 19314 EWA) FPPY 


4743 4815 











/FLOATING POINT 


4744 


4745 
4746 
4747 
4752 
4751 
4752 
4733 
4754 
47535 
4736 


4787 
4762 
4764 
4762 
4763 
4764 
4765 
4766 
4767 
4770 
4774 
4772 
4773 
4774 
4775 
4776 
4777 
QAO 
5O%4 
5282 
3283 
5Oa4 





EXERCISER 


tOOD 


2295 
ABV2 
122 
7653 
A181 
2089 
2125 
BBBO 
1034 
5904 


2085 
O282 
2182 
7633 
181 
BB22 
8182 
7653 
9183 
POO 
0104 
8088 
2145 
2208 
0544 
5775 
6551 
6375 
2121 
4775 
1831 
2O04 


/ 


SYALL@ VO8S 6eAPRa72 


JOUMMY POINTER 
ZEND OF FPP TESTS WAS FPPI4 


/ 
FPPU5, 


/ 
JENTERED ONLY JN FLOATING POINT MODE 


2 


/SET yP OF FPP INDEX REGISTERS 


/ 
FSET, 


/ 


/ENTERED ONLY IN FLOATING POINT MODE 


ESTRIF 

EFCLA 

FLOX!@) 7653 
ELOXtas a 
ELOX1S) 8 

EVA} BASES] 


/SETS UP FPP INDEX REGISTERS 
/DUPLIGATES TABLEL INTO TABLE2 


/ a 
FSET4, 


MORE, 


ESTRIF 

EPCLA 

ELDOX!2) 7653 
ELOX!4) ] 
ELOXt2) 7653 
ELOX!3) 'y 
ELOX!4) 2 
ELOX15) ) 
EFLOAIS 44) TABLEL#3 
EFSTAIS513 TABLE2#S 
EUXNIL20) MORE 
EJA; BASE+4 


14137 PAGE 167 


CLEAR THE FAC 
/LGAD IR Q 


/JLQAD IR 4 
/LGAD IR 3 
/JMP ALWAYS 


/GLEAR THE FAC 
/LQAD IR BQ 


/LOA0 YR 
/LOAD IR 
/L.0AD IR 
/ALGAD IR 
/LOAD IR 


wu 06lUfSehmlCU KUCH OC 


/LOAD RAN ARG 
/STORE RAN ARG 
/JDONE 425 TIMES 
/JMP ALWAYS 





t 1 
¥ 

X 

\ 


/FLCATING POINT EXERCISER 


3985 
5246 
5327 
5010 
5014 
5242 
5013 
5214 
5015 
5316 
5047 


20590 
AOn2 
A494 
Agae 
0483 
APRe 
0424 
e2e2 
A405 
AGA0 


ESET, 


EMORE, 


ESET, 


SIALL2 Vass 


ESTRYE 
EFCLA 
ELOX!d) 
ELOX!S) 
ELOX14) 
ELOX{5) 
FLDXI0) 
ELOXi2) 
EFLOALE 443 
EFSTASS51) 
EUXN{ 120) 
BJA} 
ESTRTE 
EFCLA 
ELOX}8) 
ELOXtS) 
ELOX{3/ 
EAs 


GsAPRe72 


2 

a 

2 

M 

#58 

252 

TABLEL#6 

TABLE2"6 
EMORE 

BASE) 


252 

ei 

o4 
BASE+% 





a 
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/STARYT EPM MODE 


/LQ@AD ARG FROM TABLE 1 
STORE IN TABLE 2 


ASTART EPM MODE 











/FLOATING POYNT EXERCISER 


39945 
3246 
5247 
3252 
5234 
5252 
5253 
5954 
5935 
5386 
5987 
5262 
5061 
5262 
5863 
3964 
5965 
3866 


5367 
5070 
Sav. 
5e72 
5g73 
3974 
5975 
5076 
5977 
5140 
54741 
5192 


5443 
54274 
5445 
5196 





8444 
8775 
2434 
6375 
1004 
5054 
0040 
8246 
1004 
5065 
119 
7797 
8411 
7777 
0143 
7797 
1034 
5504 


444 
6000 
2434 
6400 
1084 
3122 
2026 
1834 
5053 
A806 
18354 
5254 


2618 
2634 
1032 
5873 


DyALI@ veas 6eAPRO72 141087 PAGE 169 


/ 

JENTER ONLY IN FLOATING POINT MODE 
/COMPARE TABLE WITH TABLE? 

/THEY SHOULD BE EQUAL 

/TEST OFFSET 46 IN BASE REG TABLE 

JTF NQT ZERO 

/DECREMENT JNDEX REGISTERS AND 
JEXECUTE SAME ARGUMENT IN TABLEL AGAIN 
/THE RET PORTION OF THIS ROUTINE 

/}S USED BY ALL OTHER COMPARE ROUTINES 


/IN BOTH FLOATING POINT AND DOUBLE PRECISION MODE 


/ 
FOMPR, EFLDAI4113 TABLEL#S /,.0A0D RAN ARG 
EFSUBI 4343 TABLE2#3 ASUBTRACT RESULT 
EJEQ: FRET /JMP IP FAGRe 
EFNOP 
FRET, EFLOAL246 /LQAD OFFSET 16 IN BASE REG TABLE 
EJEQ) RETING /JMP If PabeteejE, DONT LOGK ONTO FEST SEO 
EACDXIO} 97779 AA8D Yo §R @ 
FADOXIG3 7779 /A8D0 TO IR 2 
EADDXIS: 7777 /ABD FO IR 3 
RETING, EWAI BASES) /JMP ALWAYS 
ECMPR, EFLDAI4313 TABLES 
EFSUBI 4313 TABLE? 
ECMPRC, EJEQ) 1%4 
EFSTRTO 
E JAS ERET#=4 
ESTRTO 
FUAS FRET 
ECMPRL, EFLDAI613 
EPSUBI634 
EJAs ECMPRC 


fn Rete oe 


sin, ~—, 
om — | 


\ 


FLOATING POINT EXERCISER DIALL@ Veas. Se APRw72 1141287 PAGE 172 


/ 

ZENTER ONLY IN FLOATING POINT MODE 
JFROM AN ADDITION@SUBTRACTION TEST 
/COMPARE TABLEY WITH TABLE2 

/THEY SHOULD BE EQUAL 


/ 
5107 @4414 FOMPAS, EFLOAI411} TABLEL#3 /L@AD RAN ARG 
5448 5775 
S411 2431 EFSUBI4343 TABLEQS#3 /SUBTRACT RESULT 
5142 6375 . 
S413 1041 EWNES FASCK /JMP IF FAG NOT @ 
5444 $447 _ 
5425 1834 EWA} FRET /JMP ALWAYS 
51446 S934 
/ 
/FLOATING POINT ADD~SUB FAILED 
/ 
5447 14834 FASCK, EWJAS FRET /OATA ERROR EXIT 
54299 Sg84 
/ 
51424 6441 ECMPAS, EFLOAI4141 TABLEL 
3422 6039 
5423 2434 EFSUBI434) TABLE2 
5124 6490 
S425 1841 EJNE) = 
S426 5432 
$427 006 ESTRTO 
S430 1933 EWA} ERET 
Sis 3a8¢ 
S132 8906 ESTRTD 
$433 1031 EWAI FASCK 
5434 5147 


/ENTERED ONLY IN FLOATING POINT MODE 

/FROM ROUTINE BOING A MULTIPLY@OIVIDE TEST 
7THYS ROUTINE COMPARES TABLES WITH TABLEZ 
/TWEY SHOULD BE EQUAL 


/ 
5435 0444 FCMPMO, EFLDAI411) TABLEL#3 /LBAD RAN ARG 
5436 5775 
5437 2431 EFSYBI 4343 TABLE2#3 /SUBTRACT RESULT 
5442 6375 
5444 1841 ENE) PMDCK /JMP IF PAG NOY @ TO F2MO 
5442 51445 
5143 1834 EVAs FRET /UMP ALWAYS 


5144 3054 











FLOATING POINT 


$445 
5146 
31447 
5139 
54581 
$482 
5433 
5154 
5155 
5156 
5157 
5142 
5161 
5162 
3163 
3164 
53165 
5166 
$167 
5179 
5474 
5172 
5173 
5174 


5475 
5476 
5177 
5242 
52a1 
5202 
52a3 
5244 
5245 


NA 


EXERCISER 


0434 
6375 
1004 
5475 
0006 
1214 
2005 
6245 
9245 
2444 
5775 
1001 
5054 
0431 
6395 
2006 
1247 
2005 
6221 
0224 
24644 
5775 
1931 
5054 


O4d4 
5775 
4213 
1984 
3054 
A9Me 
6223 
1254 
5254 


/ 


JENTERED ONLY IN FLOATING POINT MODE 


DEALI2 V8IIS 


JFROM FCMPMOD ROUTINE 


/WHEN RANDOM ARG OYFFERS FROM RESULT 
/BY PLUS OR MINUS { DUE TO ROUNDING 
/ROUTINE TESTS FOR THIS OCCURANCE 


/ = 
FMDCK, 


/ 
/ENTERED ONLY IN FLOATING POINT MODE 


EFLDAI 431) 
EJEQ) 
ESTRTD 

EF ADD 4214 
ESTRTF 
EFSTAJ215 
EFLOA{215 
EFSUBI44i11 
EJEQ) 
EFLDAI4S13 


ESTRTO 


‘EF AOD $247 


ESTRTF 

EFSTA{224 
EFLOAl224 
EFSUBI 413) 


EJAI 


BeAPRa72 


TABLE2#3 
FZMD 


TABLELeS 
ERET 
TABLE2#3 


TABLEL#S$ 
ERE? 


AWHEN RESULT HAS ZERO MANTISSA 


/ROUTINE TESTS FOR A LEGAL UNDERFLOW 


/ 
FZMD, 


EFLDAI4414) 


EFMUL P2413 
EWEQ} 


EFCLA 
EPSTAS223 
ESAS 


TABLEL#S 


FRET 


ERET 


41107 PACE 194 


/LOAD RESULT 
/ROUTINE TO TEST FOR LEGAL UNDERFLOW 


/ASUBTRACT © GONTAINED IN OFFSET £4 OF BASE REG 
/STORE IN OFFSET 15 OF BASE REG 

/LSAD OFFSET 418 IN BASE REG 

/SUBTRACT RAN ARG 

AJMP IF Pabee 


ALGAD WIfN RESULT 


/A0D 4 CONTATNED IN OFFSET 17 OF BASE REG 
/STORE IN OFFSET 24 BASE REG 


/LOAD OFFSET 2f IN BASE REG 
ASUBTRAC? RAN ARG 


/JLQAD RANDOM ARG 


/MULTIPLY BY CONSTANT IN OPFSE? (3 OF BASE REG 
UMP IF Fabeo 


/CLEAR Fac 
/FUac 8 THAGArLAR NOT LEGAL 


* “a 
y 


a™~. 
/FLOATING POINT EXERCISER DNIALG2 veges BaAPRa72 11197 PAGE 172 
/ 
/SET UP OF FPP INDEX REGISTERS 
7FOR OPERATION IN BOUBLE PRECISION MODE 
/ 
5246 1006 MPSET, ESTRTD 
5207 9120 ELOXI@] 7629 /.0aD IR 2B 
5210 7682 
S241 0191 ELOX!4/ a /LGad IR 4d 
5212 2009 
5243 2183 ELOXIS/ g ALOAD IR 3 
5244 28990 . 
$245 41831 EJAl BASES, /JMP ALWAYS 
5246 3544 
/ 
/SET UP OF FPP INDEX REGISTERS ON PAGE @ 
/FOR OPERATION IN GOUBLE PRECISION MODE 
/ENTERED FROM FPRPI9 TEST 
/ 
52147 2006 OPSETL, ESTRTO 
5229 684192 ELOX!@3 7689 /LGAD {R @ 
5224 7688 ; 
$222 6101 ELOXIS) 'y /LGAD YR 4 
5223 0209 
3224 8103 ELOX{S! , /LOAD IR 3 
5225 p09 
3226 8184 ELOXI4) 14 /LOQAD {IR 4 
3227 #044 
S239 8195 ELOX15/ 7764 /LQA0 {R 8 
5231 7764 ; 
3232 1034 EWA) RBASEo4 AJMP ALWAYS 
$233 3593 
5234 0444 ECMPMD, EFLOAI44i43 TABLES 
5235 62902 
5236 2431 EFSUBI434) TABLE2 
5237 6439 | 
5240 1041 EUNE) EMOCK 
5244 8245 
5242 00806 ESTRTO 
5243 10314 EWA} ERET 
8244 8954 
5245 8906 EMDCK, ESTRTD 
5246 18314 EWA} FRET 
5247 5954 








FLOATING POINT 


5252 
5251 
52582 
52583 
5284 
5255 
52536 
5287 
5269 
3264 
5262 
5263 
52464 
5265 
5266 
5267 
5279 
S274 
$272 
S273 
5274 











EXERCISER DIAL1G VGe2z ge APRw72 11187 


2026 
0120 
7688 
G401 
8892 
2182 
7682 
8128 
8888 
0194 
2022 
2125 
2088 
0544 
6776 
6551 
7376 
2121 
5265 
1034 
5584 


/ 
JSET UP OF FPP INDEX REGISTERS ON PAGE Q 
/DUPLICATION OF TABLES INYO TABLES 


/ 
OPSET2, ESTRTO 


PAGE 173 


ELOX!0) 7629 /LOAD IR @ 
ELOX!4) 3 /LOAD IR 4 
ELOX!2) 7609 /LOAD IR 2 
ELOX{3) a /LOAD IR 3 
ELOX14) a /LQAD IR 4 
ELOX15) a /LOAD IR 5 

MOR, EFLOA{S445 TABLES#2 /LOAD RAN ARG 
EFSTAIS5411 TABLE4#2 /STORE If 
EUXNIL20) MOR /QONE 226 TIMES 
EAS BASE) /JJMP ALWAYS 








Nea il 





a 
JFLOATING POINT EXERSISER "1AL12 VBa3 Gu APRe72 41187 PAGE 174 
/ 
/SOMPARES DOUBLE PRECISION NUMBERS 
/TABLES WITH TABLES 
/USING DOUBLE WORD DIRECT REFERENCE INSTRUCTIONS 
; 
5275 444 OPCMPR, EFLOAI4113 TABLE3=2 /LOAD RANDOM ARG 
5276 6776 
5277 24314 EFSUBI434) TABLE4e2 /SUBTRACT RESULT 
5300 7376 
5304 10904 EJEQ) FRET AYP THEY ARE EQUAL 
53972 5254 
5303 12314 EVA} FRET 
S304 Sps4 
/ 
/COMPARES DOUBLE PRECISION NUMBERS 
/TABLES WITH TABLES 
/USING SINGLE WORD INDYRECT REFERENCE INSTRUCTIONS 
/ 
B395 8631 DPCPR1, EFLDAI6314 ALO8A0 RESULT FROM TABLE4 
S306 2642 EFSUB1612 /SUBTRACT RAN ARG FROM TABLES 
S307 +1004 EJEQ) ERET AYP THEY ARE EQUAL 
S310 5254 
3344 1031 EWAl ERET 
$342 5954 





SS eS a 


FLOATING POINT 


5313 
5314 
5315 
5316 
3317 
5329 
S321 
$322 
5323 
5324 
5325 
5326 
5327 
5330 
S334 
5332 
S333 
5334 
5335 
5336 
5337 
5340 
5344 
5342 
S343 
5344 
5345 
5346 
5347 
5352 
5381 
5352 
5333 
5354 
S385 
5356 
8387 
3362 





EXERCISER 


1192 
5405 
1141 
5364 
8101 
2900 
100 
7600 
2006 
6282 
1054 
5335 
2203 
1954 
5335 
8202 
2200 
6282 
92B2 
6444 
6020 
04¢4 
6e20 
1202 
6444 
7000 
1201 
6514 
6920 
2401 
5349 
6202 
1104 
5375 
1444 
5500 
1034 
5504 


RANGEN, 


RCOONST, 


RGENA, 


CIALIS VOSS 


FSETX) 
FSETB) 
ELOX!d4 
ELOX!d) 
ESTRTO 
EFLOAL 222 
FULTI4: 


EFSUBI 223 
EJLT! 

EFLDAL282 
EFSUBI 292 
EFSTA282 
EFLOAJ282 
EFSTAI@19) 
EFLOAL4i41 


EFADD{ 204 
EFSTAS@14) 


EFADD {204 
EFSTA{54i21 


EUXN{ 80) 


EFSTAL2@2 
ESETXI 


ESETB) 
EVAtLi 


Se APRa72 


XREG2 
RBASE 
2022 
©2290 


RCONST 


RCONST 


TABLES 
FABLEL 


TABLES 


TABLEY 
RGENA 


XREGYL 
BASE 
BASES) 


ee 


es 


lie, 


~~ ‘ 
i 


\ 


/FLOATING POINT EXERCISER NIALIS VAe3 6eAPRe72 11127 PAGE 176 


5361 202% REASE, 7022 
2342 2657 2657 
23635 1224 1234 
3344 7829 2232 
5365 8825 2005 
5366 8811 S041 
5367 2082 2289 
3378 22280 2288 
5371 4882 4880 
5372 2882 8290 
5373 1373 4373 
5374 8920 2282 


3375 2000 XREGL, 
$376 2200 
5377 8082 
5499 28000 
5491 8009 
5492 28809 
$403 8229 
5494 86208 
S405 @989 XREG?2; 
5406 009 
53407 800 
5410 o9a0 
54141 0000 
5442 9000 
5443 2008 
5444 8830 


MAR RBWAAIVW ASA AAVAses ® 














ee ee 


/FLOATING POINT 


3445 


5416 
5447 
5420 
5424 
5422 
5423 
5424 
5425 
53426 
5427 
5430 
5431 


3432 
$433 


53434 


EXERCISER 


%O20 


1031 
4041 
2104 
5424 
1031 
5416 
0806 
401 
5416 
1401 
B432 
0007 


D080 
8202 


2022 


FENQ, 
/ 


/ 
LINK, 


TWO, 


XREG, 


DYALL@ VOGS 


ESA: 
EUXNIL@Q) 
EWA} 


ESTRTO 
EFLDAS40411 


EFADDI 421) 
EJAC 


8288 
A082 


/ 

/BASE REGISTER TABLE 
/JCONTAINS CONSTANTS@FLAGS@TEMPORARY STORAGE . 
/BASFed AND BASE*#2 CONTAIN RETURN UMP FROM SUBROUTINE 


/ 


BeAPRe72 14107 


FPPie? 
#5 


LINK 


LINK 
TWO 


PAGE 177 








a 


/FLOATYNG POINT 


5522 
5544 
55M2 
5543 
55.24 
$595 
5596 
$597 
5510 
5541 
5512 
5543 
5544 
3545 
5516 
5517 
5529 


5522 
22322 
AB 3L 
2822 
9029 
195-4 
7376 
A008 
9004 
6776 
S902 
O201 
$775 
2QV9 
PHB1 
6375 
YOBD 
SOL 
2IDD 


2029 
8222 
0229 
C222 
0822 
8289 


STALA, §=V.203 SeAPRw7 2 


Ba QRQaaas2aaea 


14107 


/OPFSET 


/OFFSET 


/QFFSET 


/OFFSET 


/OFFSEF 


/OPFSE?T 


/OPFSET 


/OPFSET 


/OPFSET 


PACE 178 


OF 


OF 


OF 


oF 


OF 


oF 


OF 


oF 








12 








/FLOATING POINT 


3532 
ae RR 
7304 
59535 
3536 
-3537 
3542 
$544 
5542 
5543 
5544 
5545 
5546 
5547 
5539 
5534 
3532 
3533 
3534 
3535 
3556 
3537 
3540 
3564 
3562 
5563 
5564 
5565 
5566 
5567 
5579 
5574 
5572 
5573 
5574 


aie 
r ; 


oe att 


EXERCISER 


aRRQ 
rOBQ 
POSL 
2082 
2020 
2900 
2282 
6200 
3777 
7777 
F289 
7777 
7777 
2002 
2088 
2089 
SHH 
2282 
2000 
2200 
2020 
G204 
0080 
S080 
2000 
2080 
2289 
2220 
2020 
2020 
2028 
2020 
0020 
7777 
BB82 


LOKTS?, 


LOKSEG, 


RESLT. 


UFLO, 
ZBL 06K 


DTALAB 


ram ca Rate a 


6282 
3777 
7777 
8382 


“it 
~~“ 
“as 
~i 


SQBAVWQee ARV AVAsQAaaraagaeaeaewean,s 


8280 
2289 
7777 
6000=, 


11187 


/OFFSET 


/QFFSET 


/OFFSET 


/OFFSET 


/OPFSET 


/OFFSET 


/OPFSET 


AQPFSET 


/QPFSET 


/OPFSET 


PAGE 179 


OF 


OF 


OF 


oF 


oF 


oF 


OF 


oF 


OF 


oF 


ii 
1,2 
13 
44 
15 
16 
4? 
20 


ei 


22 


/OQFFSE? OF 238 


REST OF BASE TABLE 


i ac a a a aes oe AS 


rn ae ee 


Sta 4 


fal age at SoS 


a 


aim, 


\ 


/FLOATING POINT EXERCISER DIALIS VBG3 = Sw APRe72 11127 PAGE 18% 


6020 


6439 


7900 


7482 


6022 
AOD 


6422 
IOBD 


7882 
S800 


7420 
8208 


~~ ON 


/FLOATING POINT MODE 
/ZRANSOM DATA TABLE 1 
408 OCTAL LOCATIONS LONG 
/ 

o600a 
TABLEL, 2 
/ 


/ 
/FLOATING POINT MODE 

/RESULTING ARG TABLE 2 

/VSED IN ASSOCIATION WETH TABLE 4 
4488 OCTAL LOCATIONS LONG 

/ 


#6499 
TABLE2, 2 
4 


/ 
/QOUBLE PRECISION MODE 
/RANOOM DATA TABLE 3 

4400 OCTAL LOCATIONS LONG 


/ 

47008 
TABLES, @ 
/ 


/ 
/DOVBLE PRECISION MODE 

RESULTING ARGUMENT TABLE 4 

/VSEB JN ASSOCSATION WITH TABLE 3 
4400 OETAL LOCATIONS LONG 

/ 


“7428 
TABLES, @ 
/ 


/ 
OU UG EGE G GEG 
SECIPITCTEND OF PROGRAM//AC/ASALS/// 
POPLTTTATESLTEDLELDALATLTEUTLEAL LE 














/FLOATING POINT EXERCISER 


C162 
04614 
2162 
1863 
2444 
0465 
2466 
B167 
0172 
0174 
0472 
2173 
21474 
0475 
01476 
01477 





7622 
%260 
6676 
354 
353 
8352 
6672 
725 
74534 
1085 
10014 
1028 
0272 
QO71 
7772 
67083 


DIALL2 


V283 


6eAPRe72 


114107 


PAGE 184 


oo™®y 
Zs 


‘ . t 


/FLOATING POINT EXERCISER NIALL@ VBB3 «Sw APRE72 114107 PAGE Ades 


vO On RRS ON VERDE OE Oo Re GC Lee TT 


ar erinanaoin anomalies sprnna inant meme init ialieaallie nian isanaiinewermueuntrallirmmic bined enh LEY LILLIES a aim wktn meat 


ede 
2102 


e282 
¢382 


9492 
g522 


8682 
ave 
1982 
1182 
i2ee 
13ee 
1498 
1388 


1682 
1788 


2088 
2162 


2288 
2388 


2483 
2588 


2688 
2788 
3280 
3122 


3282 
3382 


3482 
35872 


SESE 


3782 


12222Qa9 
1psi tits 


se i Es Bp ee 
He Be 


{1112114 
iitidtii1 


iiititiii 
tiiidadi 
41414141 
{1412411 


ESSERE! 
11112 ee0 
iaiiiiii 
4idaiiii 


diiiiii1 
aidaiits 


q1iit1i4 
cisidiis 
iititiit 
iitiiiii 


diiitiii 
ditaiiis 


diiiiii2 
{iiaiii4 
44144141 
enegtoare 


aidadaia 
qiiidaii 


89202092 
facidis 


14411121 
nie Ge Ee Eee 


11ii1ai1 
1idaiii1 


1afitiii 


Liiiiiii 


11414171 
244143141 


44414141 


BBIBSLBS 


1iiiiiis 
14211112 


1idii4d1 
1iii1234 


14211321 
11714171 


Ait 7 itt 
114411141 


difiiiis 
1ifiiif4 


12i1taf4 
41441417214 
$7415571 
Cpeg2ga0 


11414144 
tiiaiii4 





44412411 
tii1iiit 


oe koe yt 
41411202 


41iadi11 
414414142 


4ifidiii 
41412114 
42i1f114 
42412114 


SEES SE! 
GB908888 


4idifiii 
O0B2O000 


4ai1f114 
41iai1a4 
aadadiid 
sidsiiss 


41442411 
44442141 
didiiiia 
44422441 


diiatiii 
44412111 


41114111 
82908000 


44411111 
414i1i411 


{2112241 
42411114 


Titite) 
asegooag 


1i2i1121 
1ifii1ii1 


11411141 
11211171 
42442441 
11411141 


14d14171 
ageze0ae 


11711171 
o8seeee0 


sifiiii1 
14411121 
ES ESETE! 
44faiid1 


ET SES TS! 
dadasaf1 


44011191 
4afiii71 


1igasiii 
1ifisiit 


1idaaii1 
LLL 


1id1i441 
1idiiiis 


Liddiiii 
dididii4 


t1iidiii 
82020000 


G1144114 
Gaqiait4 


diiiiiis 
41144144 
fisidita 
d1434444 


41444444 
PAGHAVOS 


41444124 
gogeeoee 


qisaaiii 
diiadii4 
G1i44144 
SEES EES! 


Gitidis4 
Gatagisa 


didadais 
fii44114 


disaiiia 
4i1id4i41 
qiiiii1134 
aoeceeee 


1iisdied 
11000002 


11411141 
SOSOlA20 


14411441 
APGGIHS4 


Li414441 
11111222 


41414101 
41414441 
1adi4441 
4144141 


41414441 
SB200000 


42412141 
SIOSLOSY 


42943291 
44314141 
12414431 
4441231321 


14444334 
£44134141 


1idi4441 
12414441 


12434131 
11414321 
42413441 
SOBRLROGR 


Lididiis 
OOOBI414 





Tiiif111 
{111141 


{1412111 
{141011 


Taiiiiis 
pooisiis 


{iiiaiita 
Tiiafiis 
Ti1iaTiii 
Tgoeog%e 


{1i1%141 
saooe1i4 


Tidiiiis 
doopenss 


faiatafs 
Tiiicaii 


{1iaf1is 


fatatiis 


Tiisfaii 
Tiiatidis 


tidiiits 
Tiiifais 


fifiatiis 
Tidif191 
T1717141 
agogoorg 


{aiaisit 
Giiafids 


ft i4i1ti 
i1if11141 


ves ee Ge 
{ifii141 
iiiiiii2 
41Ti1141 


‘PLEEER S| 
42431442 


ii1iidi41 
EL EL ELL. 


d1diiiid 
qifiitidi 


difiii41 
1afisias 


fifasadi 
fiiaiis1 


Titidi 
T14141 


Tiiiai 


14 

i4 
44441: 
afiii44 
4 

1 

4 

4 


arpa 


Gitiaii 
Tidadd 


Tisai 
Citadi 


rar my 


1 
‘ 


Moegeees 
Apaanoao 


tifatiii 
EEC BEG 











JFLOATING POINT EXERCISER 


4082 
4108 


4208 
4382 


4400 
4590 


4602 
4780 
5000 
5180 


5280 
5308 


5400 
5568 


5602 
5702 
6002 
6100 


6280 
6389 


6400 
6500 


6689 
6782 
7082 
7126 


7200 
7582 


7482 
7582 


7688 
7788 


dititiii 
diiitiit 


diiaiiit 
4144144 


diiiiii1 
aiiiiii2 


did44141 
ditiiiis 
diiiiiis 
didiitiis 


dadiiiis 
Gisiiiis 


44444441 
ditasaia 


Giiiiais 
didisais 
18002000 
pacenges 


igege@goer 
gaececaaa 


19GA2C80 
BOLOS SAG 


10882980 
agAagha00 


é * 
£ 
H 
a 
4 


12411121 
ditititi 


11411171 
4ididaii 


12414121 
1ifaiii2 


4i4fati1f1 
tafaiiis 
1ifiiifi 
tafiiafi 


tadiiifi 
1ifasafi 


1adidif1 
tif1iif1 


sifiiiis 
dafaiiia 


S9982080 
90000082 


aeneceag 
LLL: 


20002080 
2QAIGAGSS 


A9DG0080 
A9008800 


DIALI@ vegas 


Litiiiii 
41414111 


41¢1i111 
44114411 


4iiiciii 
4i¢i2414 


41412411 
4iiifii1 
41iifii4 
44217411 
difiiisd 
daiifiii 


dacafiid 
11422441 


eCeeere 
dacaiii2 


eeacecse 
ELLE: 


80908008 
LLL 


25288000 
S2A2C000 


S2AGHLH2 
A2A00080 


aigiiiis 
1ifiiiii 


1adasai1 
si411424 


11011191 
idsaiifs 


tif41141 
aidaaai1 
qifiiifi 
siZisiis 


2212101 
gifiiifs 


44011008 
saii11f4 


41212171 
a2%144¢1 


: 
ACECACH2 


PPOSL2AA 
A2GGL2A2 


CLO2SAA2 
B2GOSAA2 


6eAPRe72 


41442114 
{iiiiii4 


d1iiiiii 
£12444111 


ditigiit 
Gatitiss 


Giiii4ii4 
Tii¢idi14 


didiaiit 
qiiiidiis 


d11diits 
eeeeree 


googeone 
figaiits 


41444111 
diiadiii 


HSACLH2B 
B2AZCA2O 


G2aC8822 
O2ACS AB 


1idiii4i1 
11411141 


44411141 
11211141 


112111441 
14412141 


124114112 
41414131 
144114141 
144114141 


SSS ESS! 
Lidii141 


PBOSOS2G 
144141331 


11443341 
21411141 


FOOSLGHS 
B2B0800B 


GABG808Q 
GBSG2R29 


14187 


{iisdiis 
fidaiiis 
Gaiiiiis 
fiiiiiis 


Tidsiiis 
Tadafats 


{1iiiif1 
Tidiaiais 
faiafais 
Litafats 


{1f1f144 
fifitaii 


soogbaed 
G1iaiiis 


T1fafats 
{iiafiis 


we 
¢ 


soocsoog 
CP ELIELL 


S2OSS002 
OO228020 


ASALA2AB 
SO228000 


PAGE 18192 


41414141 
fifi ti41 


d1iiiiti 
41f14441 
fifiiita 
fifiiidi 
¢17iii44 
41944341 
11f14444 
f1f14141 


f1iii141 
fifidaia 
oabgeaee 
dafisaia 


41714141 
fidiiid 


seboneee 
ooegoged 


20800080 
20000020 


AgAgAa00 
198g2080 


om, -_ ! 
/FLOATING POINT EXERCISER SIALi2 vaa3 Be APRa72 41327 PAGE 181-3 
AAPT 3240 ASC2 8765 CKSUB 6433 DIVIGE 3723 
AS= IT 2542 ASC3 2766 CL A543 PIVOEK &é@43 
ACEQ 2534 ASC4 0767 CLRA 4594 NiVOV «2375 
ACEXP  %952 ASC5 2770 cLRAC 4573 sear: 236¢ 
ACLSW 29954 ASC77? 2771 CLRACX 6666 OMODE 2542 
ACLSW1 8955 ASCB 9754 CLRAX 6637 oof 2473 
ACLSW2 2056 ASCCH 93514 CLRB 4572 poTcK 944%4 
ACLSW3 2057 ASCCHD 9224 CLRBX 6643 DATER® 1257 
ACMSW 2053 ASCDAT 284123 CLREG 6625 DOTERR 9432 
ACNEZ 2273 ASCL 0143 CLRMQ 4574 DOTEX @254 
ADDAB 6735 ASCL1 0146 CLRMQX 6662 OPADD 2784 
ADOR 2745 ASCL2 0147 CLRO 4599 DPADOS 2785 
ADODX 5200 . ASCWD 8352 CLROX 6647 OPaADD1 2743 
ADDX1 5201 ASCWDE 8825 cM 3693 OPEMPR 5275 
ADDX2 8243 ASFLO 8633 CMEM 6593 OPCPRi 83395 
ADDX3 5223 ASGET 8646 CMEML 6494 DPFLOW 2449 
ADDX4 8234 ASLOC 8677 CMEM2 6544 OPOVFL 27914 
ADEQ 2626 ASPNTR 0662 CMEME 4567 OPSET 8206 
ADEX? 7929 AST 2457 CMEMF 4566 DPSETL 8247 
ADRET 6762 ASTER 7362 CNTRLS 7337 OPSET2 5259 
AEG 2504 AYX4 4331 CODE 1409 DT AM $540 
AEXT 4035 ATX2 4409 COMPO 6: 8722 PVEND 4443 
AgZ 7222 ATX3 4435 COMPOR 58742 DWRD go35 
AGZ 7256 ATX4 4444 COMREG 262 EA 8452 
ALNG 4443 ATX4A 4445 CRLF SOG6 EADOX 91498 
ALLN2 4209 ATXS 4474 cCRSW 0027 EALN aede 
ALN22 4229 BAONWS 6145 CSTATE 8731 EaTxX @2¢ 
ALN 4246 BASE 5580 DARD 9034 ECMPAS 3424 
ALN4 4264 BCOM 7072 DATERR 41241 ECMPMD 8234 
ALNEND 4325 BEGIN 267 DATTX? 4735 EGMPR 5267 
ASW O34 BEQ 2541 DECAPT 4565 EGMPRL 31403 
ALSW4 8932 BEX? 8243 DECOP 4544 EGMPROE 8873 
ALSW2 8833 BLSW 2837 DEP 2052 ECONO 2742 
ALSw3 8934 BLSWS 8842 DEP41 2094 EEND B475 
AL2 7259 BLSW2 0844 DEP32 86 2447 EFADD 41082 
AMBO 4577 BLSWS 9842 PEP43 24836 EFADDM 58082 
AMSW 293g BMSW S236 DEPL32 2285 EFCLA @082 
APBO 4576 BRANCH 6341 DEP43~, 2244 EPDIV 3208 
APEQ 2574 BREG BO36 DEPAS2 2205 EFEXIT epee 
APT 9274 BSIGN 642990 HEPL4 2223 EPLOA 8208 
APTC 5425 cADS 3332 DEP444 2264 EFMUL 4882 
APTDEC 6421 cCADST 7732 MEP4S 2304 EFMULM 72682 
APTERR 2724 CAPT 4575 DEPEND 245 EFNEG 98083 
APTPAC 6841 CAROUT @021 DEPMS 2200 EFNOP 8242 
APTSAV 1842 CARYIN 8007 Dive S674 EFNORM @09¢4 
AREG 2032 CFLG 6661 OfVee 3687 EFSTA 64082 
ARITH 2932 CKLINK 7243 OIVG, 3663 EFSUB 2980 
AS 0602 CKMEM 2432 O1Ve2 3667 EJA 4034 
ASADDR 2712 cKO 7736 DLVOA 3636 Eyac 087 
ASC 7454 cKOP 7737 DiV4 3676 EYEO 4004 
ASCH A764 CKOPAD 6244 nlVve2 3707 FG? 1264 


AScin 2725 CKST 6444 DIVS 41494 El? 1854 











E JNE 
EYSA 
EYSR 

E UXN 
EL 
Eig 
E.Ox 
EMOCK 
EMEM 
EMODE 
EMORE 
EnNDiS8 
ENDDILV 
ENINIT 
ENOFF 
ENON 
ENT 
ENTER 
ENTSTP 
ENTYIXT 
ENTYP 
EQP 
EPM 
ERY 
ER2 
ERS 
ERET 
EROUT 
ERR 
ERRi¢ 
ERREG 
ERRET 
ERROR 
ERRT4 
ERRTP 
ESET 
ESETS 
ESETS 
ESETX 
ESTART 
ESTOP 
ESTRTD 
ESTRTE 
ESTRTF 
ETXT4 
ETXT2 
EX 
EXADOR 
EXCGM 
EXEC 
EXIT 
EXIT2 


i 1 
: i 
. 

Me 2 


FLOATING POINT EXERCISER 


10944 
2121 
11314 
2001 
7494 
1497 
21292 
5245 
9125 
2544 
5923 
20441 
4015 
1068 
7942 
7581 
2076 
4563 
7734 
6106 
61385 
2432 
8923 
5305 
5506 
5507 
5984 
2414 
6787 
12892 
1262 
1235 
A029 
1256 
1228 
5833 
3895 
L121 
1184 
4980 
6129 
26 
2252 
225 


DIALAG 


EXITae 
EXITAL 
EXITBe 
EXITAS 
EXITOU 
EXITL 
EXIT18 
EXIT4i 
EXITLe2 
EXITLU 
EXIT2 
EXIT2U 
EXITS 
EXIT4 
EXITS 
EXIT6 
EX{T? 
EXITSW 
EXITWD 
EXSAV 
EXSTP 
EXTA 
EXWO 
FACFR 
FA0GL@ 
FADSLA 
FADDL2 
FADGLA 
FADSLB 
FADDG 
FAQODAL 
FADDGS 


FADOS - 


FADOLe 
FAODLI 
FAQODL2 
FA0D2 
FAQOS 
FADEND 
F AUN 
FAPTS 
FASCK 
FATX 
FCLA 
FOMPAS 
FOMPMQ 
FCMPR 
FECH@ 
FECH4 
FECH?2 
FECH24 
FECHS 


14214 


6eAPRe72 


11107 
FECH3S4 1427 
FECHS 1436 
FECH42 1445 
FECHS 1467 
FECHE 1475 
FECH42 1575 
FECH? 4524 
FECH72 1689 
FECH7S 41629 
FEND 4624 
FETCH 4264 
FLAGS 8726 
FLAG2 4727 
FLAGS a730 
FLOA 5304 
PLOYV 4964 
FLOX 4424 
FMAINT 63964 
FMDCK 5445 
FMIS 2044 
FMODE 4542 
FMULT S382 
FNEG 5246 
PNORM 51409 
FOEQ 2474 
FOQTS 2034 
FOP IS 2865 
FPLLER 4530 
PRPZSER 4683 
FPAUSE 5422 
FPCOM 6583 
FPHLT 65534 
FPICL 6582 
FPINT 6534 
FPIST 6587 
FPP. 48¢3 
FPP12 4434 
FPPIGR 4483 
PPPL4 4467 
FPPIZE 4522 
FPP4iR 4496 
FPPi2 4555 
FPPY2R 4564 
FPPYZ3 4670 
FPPZ3E 4645 
FPPY3R 4677 
FPP14 47483 
FPP{4R 4772 
FPP{S 4744 
FPPdR 4926 
FPP2 4942 
FPP2E 4063 


a 


PAGE 181424 


FPP2ER 
FPP2R 
FPP 
FPPSE 
FPP3ER 
FPPSR 
FPP4 
FPP4R 
FPPS 
FPPSE 
FPPSER 
FpPSR 
FRP6 
FPPOR 
FRPT 
FPPTE 
FPP7ER 
FRPIR 
FRPRUN 
FPRST 
FRST 
FSET 
FSET 
Fsts 
FSTA 


HALT 
TGNFL 
INCL 


; \ a i 
/FLOATING POINT EXERCISER STALL2 Vows 6eAPRe72 441097 PAGE i18%1¢5 
a 
1\yo2 5490 KEYCKS 145 MDFLAG 4737 OPOSs 2409 
1VCZ 5427 KEYCKL 4140 MEMEQ 2646 OREG R222 
INCAPT 4555 KEYL4 6676 MEMINS 6455 ORERR Aggie 
INCOP 4554 LCF 6652 MFLD a7ty CUTFLD e232 
INCOR 4553 LOag 5395 MMEM 9106 OUTSTP 2677 
INCPC 4552 LOat 5344 MODE 9530 OVFL A733 
INCST 4554 LOAL@ 5325 MOR 5265 PAPT 272 
INCX 4559 LDAL4 5334 MORE 4795 PAUS® 8123 
INPEX 6347 LDAL2 5335 MOVEX  454¢ PAUS{ 5136 
INEND 4257 LDA2 5344 MQEQ 2504 PBASE 8074 
INIT 1246 LOAC 2652 MQEXT 6934 PCEQ 26416 
INIT@ 12866 LOBUF 298545 MQLSW 9845 PFAC age 
INITS 8 8©64422 LOEXT 4898 MOLSWL 28946 PFADD 2736 
INIT2 4134 LOOP 9456 MOLSW2 9947 PFOIV 3606 
INITS £220 LOX4 4145 MQLSWS 205¢ PFPC 9066 
INTT4 1206 LOX2 41427 MQMSW 944 PINCF 6646 
INITS 1243 LOX3 4136 MQREG 9844 PINDEX 6682 
INITSS 1225 LEFT 4000 MSTATE 55476 PR 0905 
INITS1 1232 LEXT 5747 MT¢ A735 PIREQ 2636 
INITS2 1237 LINK 5416 MTe2 A736 POEQ 2a44 
INTTS 42647 LLB 6654 MYEXT 2954 PROCES 1634 
InSg 7297 LMEM 0197 MULEND 3685 PRT 4067 
INS22 7347 LMEM4 81448 MULT@® 3325 PRTS 4404 
INSTEP 2666 LMEM2 4494 MULTOS 3409 PS6M 5544 
Jac 5027 LMEMS  @442 MULT@L 34064 PSEQ 2544 
Jad 5932 LQAD 5636 MULT22 3449 PSTAT 9904 
JaL Boe LOADA 4547 MULTS 3427 PSTEPM 4844 
JEo 4734 LOADAG 4546 MULTLA 3482 P?4Q 41536 
JFALSE 3924 LOADB 4545 MULT2 3484 PUTX 4536 
JGE 4734 LOADMQ 4544 MULT2, 339987. PXe g224 
JGT 4759 LOADO 4543 MULTS 3608 Px4 g225 
JLE 4737 LOADOP 4542 NEG 5067 PX2 6226 
JLT 4745 LOADPC 4541 NEGB 7892 PxS 6227 
JNE 4742 LOOX 2466 NOREP 1247 PX4 8232 
JSA 4728 LOKSEG 5554 NORM 4537 PxS a234 
JSAZ 4704 LOKTST 8532 NORMS 5144 PX6 g232 
JSAZ 4744 LOOPR 7449 NIMSC 3345 PX? 9233 
JSA4 4722 L Pos 1142 NXSHFT 6344 PYXP 9206 
JSR 4649 LP42 £125 OCTWH 4383 QMK 3oad 
JSR4 46414 LP42E 064,46 OGTWORS 8026 QUONEG 4067 
JSR2 4654 LPC 6666 OEXT A027 RA 2496 
JSRZ 4662 LPR 6664 QOEz 7200 RANGEN 8343 
JSR4 4672 LREG 5721 OL SW A283 RAPT 6565 
JTRUE 5205 LSo 6661 OLSWL 8224 RBASE 53364 
JTRYEL 5806 LSE 6654 OLSW2 0025 RCONST 5335 
JXN 4537 LSF 6661 OLSWS 0226 RoaP 6546 
JXN4 4549 LSHFT 6567 OMSW A022 READ 274 
JXN2 4602 LSR 6663 OPADR ag%g REGAD  @2320 
JXN2A 46413 LTRUNK 6232 OPDEC 6723 REGEQ 1746 
JXNG 4623 MADD 3455 OPEQ 2544 REGFLD 833 
JXNEND 4637 MCODE 6534 OPERND 4482 REGS 024 


KEYCK 1254 MDEC 2736 OPLUS1 6445 RENO 7474 








SoBe ca ae SR Borer a BEE 


REPMEN 
RESLY 
RESPSB 
RET 
RETING 
RETURN 
REX 
REXT 
RF 

REA 
RFB 
RGENA 
RIGHT 
RNOFF 
ROQEPM 
ROLSW 
ROMSW 
RoT 
ROUT 
RPNTR 
RSEQ 
Rst 
RSTATE 
RT 
RAD 
RUBOUT 
RUYXT 
RWONT 
SA 
SaE2 
SaGz 
SALz 
SAVAPT 
SAVE 
SAVMEM 
SAVO 
SaVOM 
SAVOP 
SAVSN 
SCAN 
SCANL 
SCEND 
SEPM 
SEPMEN 
SETS 
SET34 
SETFL 
SETRET 
SETSTS 
SETSTS 
SETST6 
SETTAB 


4 \ 
‘ 


/FLOATING POINT EXERCISER 


4535 
5566 
1502 
8494 
5065 
A354 
7507 
7454 
506 
0547 
0527 
8340 
3000 
8124 
6567 
6564 
6563 
7434 
3027 
8704 
2606 
7525 
6562 
a5a2 
2032 
7125 
7437 
0234 
0400 
4534 
4533 
4532 
5461 
4531 
a7d2 
6004 
8102 
6231 
6405 
04a 
0407 
453 
453g 
4527 
4753 
4754 
7042 
7354 
6252 
6244 
6257 
1689 


DTALLe 


SETUP 
SE TX 
SETX4 
SEX 

SFG 


SHEQ 
SHPCNT 
SHFLAG 
SHFOP 
SHFTB 
SHF TO 
SHIFT 
SHIFTB 
SHIFTO 
SHIFTR 
SHORT 
SHREG 
SKPEPM 
SQEzZ 
SPEC4 
SPEC? 
SPEC29 
SPEC24 
SPECS 
SPECFL 


SSTEP 
STAG 
STAi 
STA2 
STA28 
STA24 
STAZ2 
STAEND 
START 
STATEQ 
STEP 
STEPER 
STEPGO 
STEPM 
STEPSW 
STERR 
STFPP 
STENC 
STORA 
STORB 
STRA 
STRB 
STRYER 
STSAVE 
SUBAB 


V888 


6251 
5454 
5155 
7530 
6662 
663 
2656 
0723 
9722 
3if2 
4536 
4525 
4524 
6408 
7265 
744g 
5657 
8724 
7533 
4523 
1644 
1662 
1715 
1691 
2080 
5442 
7546 
3254 
5236 
5246 
5252 
5261 
5265 
5271 
5340 
234 
2551 
3290 
3323 
3234 
713 
7732 
7444 
1080 
6745 
4522 
4521 
6025 
6837 
2021 
7424 
7243 


6eAPRe72 


SWAP 
SWCNT 


14127 


1432 
7499 
AA 
2029 
1134 
9004 
0024 
4494 
1130 
1155 
41452 
6080 
6402 
7030 
7400 
2350 
2207 
2272 
A254 
1046 
2242 
@023 
0464 
9297 
21433 
83f2 
2497 
2442 
1487 
4909 
2474 
2434 
2247 
217%¢ 
2483 
4422 
7367 
2234 
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TNEG 
TNOP 
TNORM 
TOA 
TOQOAC 
TOB 
TOPECH 
TQOMEM 
TOMQ 
TOO 
TOOP 
TQPC 
TOTMP 
TOUT 
TRPAUSE 
TRNTR 
TPNTRY 
TRACE 
TRAPS 
TRAPED 
TREG 
TRET 
TREXIT 
TRSKP 
TSETB 
TSETX 
TSTA 
TSTO 
TSTE 
YSrr 
TERAP 


‘ 
‘ sillilli, & J] 
OO” : : * 


; 


JFLOATING POINT EXERCISER DIAL1@ va@a3 6eAPRe72 414107 PACE 18199 7 
WORDL 6672 
XQ 2200 
XBADR A076 
Xt 2201 
X2 S202 | 
X3 %283 
X4 a204 
x5 0205 
X6 9206 
X7 287 
XE0 2576 
XGETX 6335 
XNCK 6382 


XNORM 6266 
XPLUS1 6332 


XPUTX 7183 
XREG 5434 
XREGL 5375 
XREG2 5485 
XTAZ 4521 
XTA2 4543 


ERRORS DETECTED! B 
LINKS GENERATED! 437 
RUNeTIME: 86 SECONDS 
4K CORE USEA 











